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Aperfeigoando-se no TK95 


O TK95 6 um equipamento versatil e uma vez que voce 
tenha aprendido a fazer programas simples, certamente 
gostara de continuar progredindo, e usar cada vez mais as 
caracterfsticas especiais do seu computador. Este livro 
desvendara os misterios das sub-rotinas e das matrizes, 
mostrara como desenhar sens proprios caracteres, a usar 
graficos de alta resolu?ao — e muito mais. 

Em todos os capitulos foram inclufdos programas para que 
voce possa tirar o maximo proveito das capacidades do seu 
TK95 e em todo o livro vocg encontrara idi§ias e sugestoes 
para programas que voc£ pode fazer usando seus novos 
conhecimentos sobre programagao. 

Este e um livro para leitores de qualquer idade, que saibam 
um pouco sobre programagao em BASIC e que desejam 
aprender um pouco mais de modo pratico e um pouco 
menos t§cnico. 
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Aperfeigoando-se no TK95 

Este livro d destinado as pessoas que sabem como fazer 
programas simples, e que desejam ir um pouco mais aldm 
— fazer programas mais complicados e utilizar melhor as 
caracterfsticas especiais do TK95 



Como voce sabe, a linguagem do TK95 e o BASIC. Se voce 
examinar bem o teclado, vera em branco, verde e vermelho, 
todas as palavras em BASIC que ele entende, e que voce 
pode utilizar para controlar o computador. Provavelmente 
voce ja sabe como utilizar cerca de vinte ou trinta dessas 
palavras. 

Aqueles que aprenderam a programar em outros 
computadores precisarao conhecer a familia de cursores do 
TK95, o que Ihes permitiri digitar uma palavra em BASIC 
simplesmente pressionando uma tecla. 








Voce pode aprender mais a respeito deles no Capftulo 26. 
Voce vera quatro destes cursores em agao quando digitar 
"Areias Movedigas". O programa utiliza a cor e o som do 
TK95, e inclui cerca de outras quinze palavras de instrugao 
em BASIC. 

Voce d um piloto espacial. Sua missao 6 fazer pousar dez 
pequenos modulos de aterrissagem em um planeta 
estranho. Infelizmente a unica pista de pouso d um terreno 
de areias movedigas. Para conduzir seu modulo para a 
esquerda, pressione a tecla 5, e para conduzl-lo para a 
direita pressione a tecla 8. 



Seu mddulo e representado por dois caracteres graficos lie 
■I Com o cursor G na tela, mantenha pressionada CAPS 
SHIFT e digite 2 e depois 1. Voce tambdm precisa do cursor 
G para a areia (linhas 90, 100 e 180). Desta vez mantenha 
pressionada CAPS SHIFT e digite B. 

10 REM areias movedicas 
20 LETc$="Jfc" 

30 BORDER 1: PAPER 1: CLS 
40 LET escore=0. 

50 FOR t=1 TO 10 

60 LET yc=16 

70 LET pc=INT (RND*31) 
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110 PRINT AT 0,24;"modulo";t 
120 INK 4 

130 PRINT AT 19,pc;" ";AT20,p 
c;"XX" 

140 INK 7 

150 PRINT AF1,yc;c$ 

160 FOR r=2 TO 19 
170 INK 6 

180 PRINT AT 19,pc;"«";AT 20,p 
c;'W' 

190 LET a=INT (RND*4)+1 
200 IF a-1 AND pc>0 THEN LET p 
c=*pc—1 

210 IF a=2 AND pc>30THEN LET 
pc=pc+1 
220 INK 4 

230 PRINT AT 19,pc;" ”;AT20,p 
c;"XX" 

240 LET d$=INKEY$ 

250 PRINT AT r-1,yc;" " 

260 IFd$="5” AND yc>0THEN LETyc=yc—1 
270 IF d$-"B" AND yc<30THEN LETyc-yc+1 
280 INK 7 
290 PRINT AT r,yc;c$ 

300 SOUND .1,0 
310 NEXT r 

320 IF pc=yc THEN FOR b-0 TO 1 
2: SOUND ,1,b: NEXT b: LET escore- 
escore+1 






330 IF pc < >yc THEN FOR b=0 TO 
-12 STEP -1: SOUND .1,b: NEXT b 
340 PRINT AT 0,0;"escore ";escore 
350 NEXT t 

360 BORDER 7: PAPER 7: INK 0 

Como voce possui dez mddulos de aterrissagem, a maior 
parte do programa £ repetida dez vezes. O TK95 emprega 
urn loop FOR...NEXT, com uma vari£vel denominada t para 
contar de 1 a 10. O loop se inicia na linha 50: 

50 FOR t - 1 TO 10 
e termina na linha 350: 

350 NEXT t 

Neste loop existe urn outro para contar as linhas na tela a 
medida que o modulo de aterrissagem desce, pouco a 
pouco, em diregao a pista. O infcio deste loop d 

160 FOR r = 2 TO 19 
e o final 
310 NEXT r 

Para voce fazer 

Faga uma lista das variaveis numericas e das variaveis de 
string que existem no programa. Cada uma delas aparece 
primeiro em uma linha comegando com a palavra LET. Veja 
se voce d capaz de descobrir para que serve cada uma 
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O TK95 Interpreta os Dados 

Atd agora voce travou conhecimento com duas maneiras de 
colocar urn numero em urn bloco de variaveis numdricas: 



Existe uma outra maneira, utilizando as palavras READ e 
DATA. Vocd dd ao TK 95 uma lista de informagoes 
(denominada lista de dados). O computador l§ os itens da 
lista, e coloca cada urn em urn bloco de variavel. 

Aqui esta urn exemplo: 

10 READ a, b 

20 PRINT "No bloco a tenho ";a 
30 PRINT "No bloco b tenho ";b 





VocS pode colocar a lista de dados em qualquer parte do 
programa que desejar. Entretanto 6 uma boa id6ia colocA-la 
no final, para que seja fAcil encontrd-la quando vocS quiser 
alterar os dados. 

Aqui estd um programa em que oTK95 utiliza a informagao 
em uma lista de dados para tocar uma melodia. 

10 PRINT "EARLY ONE MORNING" 

20 READ L,P 
30 IF L-0 THEN STOP 
40 SOUND L,P 
50 GO TO 20 
100 DATA 1,5,.5,5,.5,5 
110 DATA .5,5,.5,9,.5,12,.5,12 
120 DATA .5,14,.5,10,.5,7,.5,7 
130 DATA .5,4„5,7,.5,0,.5,0 
140 DATA 1,5,.5,5,.5,5 
150 DATA .5,5,.5,9,.5,12,.5,12 
160 DATA .5,14,.5,10,.5,7,.5,4 
170 DATA 2,7 
180 DATA 0,0 




CADAEUMEBO HA 1ISTA DE 
DADOS 

DEVE SEE SEGDIDO DE DMA 
VIRGULA 

EXCETO 0 trmMO, NO FINAL DA 
^_ LINHA _^ 


Na linha 20, o TK95 l§ os dois primeiros numeros da lista 
de dados e os insere nos blocos L e P. Na linha 40, ele 
utiliza estes dois numeros para tocar uma nota musical. L S 
a duragao da nota ePeo seu diapasao (a altura do tom). 
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Em seguida ele volta e le os prdximos dois ndmeros. VocS 
vai perceber que os dois ultimos numeros na lista de dados 
sao 0,0. Quando o computador ve esses numeros, sabe que 
a melodia acabou. (Veja linha 30.) 



Voce poderia colocar todos os dados em uma longa linha 
de programa porem a digitagao 6 mais fScil se os dados 
estiverem em segoes. No programa "Early one Morning', 
cada linha de dados 6 um compasso da mdsica. 
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Mais Dados 

Voce pode tambem colocar palavras em blocos de variavel 
de string com READ e DATA. 

Aqui esta um programa que serviri de exemplo: 


10 READ a$,b$ 

20 PRINT "Acabo de ler" 

30 PRINT a$"'e" 'b$ 

40 DATA "chocolate", "creme" 
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Usa-se RESTORE para dizer ao computador onde ele deve 
comegar a ler na lista de dados. A palavra RESTORE sozinha 
significa "comegar a ler no infcio da lista de dados". Se voce 
colocar um numero depois de RESTORE, o computador 
comegara a ler os dados a partir da linha que tenha aquele 
numero. Por exemplo, RESTORE 200 quer dizer "comece a 
ler os dados a partir da linha 200". 

Neste programa o computador pode tocar duas melodias. 
Ele vai perguntar qual das duas vocS quer escutar e vai 
entao utilizar os dados para tocar aquela melodia. 

10 PRINT "Eu posso tocar" 

20 PRINTAT8,0;"1 Loch Lomon" 
d" 

30 PRINT AT 10.0;"2 Lullaby" 

40 INPUT "Digite o numero de sua 
escolha.";c 
50 CLS 

As linhas de 10 a 50 formam a primeira tela completa do 
programa, onde o computador pergunta qual das melodias 
voce quer escutar. 



60 IF c-1 THEN RESTORE 

70 IF c-2 THEN RESTORE 300 

80 IF c < >1 AND c < >2 THEN RUN 





Estas tres linhas verificam o que esta contido em c. Se nao 
for 1 ou 2, o computador rodara outra vez todo o 
programa. 



100 PRINT "Estou tocando" 'a$ 

110 READ n 

120 FOR a=1 TO n 

130 READ d,p 

140 SOUND d,p 

150 NEXT a 



ESBLEAPARTEQUETOCAA 

MELODIA 

a$E0N0MEDAMEL0DIAEnE0 

NOMERODENOTASASER 

T0CAD0 


200 DATA "Loch Lomond",20 
210 DATA 1,2 

220 DATA 1,7,.75,7,.25,9,1,11,. 
5,9,.5,7 

230 DATA 1,9,.75,9,.25,7,1,4,.5 
,2; .5,2 

240 DATA 1,7,1,7,1,7,.5,11,.5,1 
4 

250 DATA 2,16,1,14 
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300 DATA "Lullaby",27 
310 DATA .5,9,.5.9 
320 DATA 1.5,12,.5,9,1,9 
330 DATA 2,12,.5,9,.5,12 
340 DATA 1,17,1.5,16,.5,14 
350 DATA 1,14,1,12,.5,7,.5,9 
360 DATA 1,10,1,7,.5,7,.5,9 
370 DATA 2,10,.5,7,.5,10 
380 DATA .5,16,.5,14,1,12,1,16 
390 DATA 1,17 



Para voce fazer 

Talvez vocg queira fazer urn "cartao de aniversdrio musical" 
para algu<§m. Aqui esta a melodia "Happy Birthday to you". 
O numero que esta abaixo de cada nota representa os 
valores da tonalidade no TK95. 

cl tern comprimento 2. 

J tern comprimento 1 e 
•l" e meio compasso (.5). 











A tela sera o cartao com as palavras impressas, e voce pode 
enfeitar as bordas com estrelas coloridas (ou ate mesmo se 
quiser, alguma coisa mais sofisticada). Veja se voce e capaz 
de fazer o computador imprimir as palavras linha por linha, 
tocando a melodia correspondente a cada linha antes que a 
seguinte aparega. 

Existem varias maneiras interessantes de escrever este 
programa. Voce encontrara algumas sugestoes no Capitulo 
27. 
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Blocos Maiores 

As vezes a capacidade que um programa tern de armazenar 
varios numeros juntos, num grande bloco com varias 
subdivides, pode ser muito util. 



Para criar um destes blocos na memoria do TK95, voce deve 
dizer a ele o nome do bloco e definir seu tamanho. A 
palavra em BASIC usada para isto 6 DIM. 



DIMfiABEEmgAO 
‘DIMENSAO’, QUE QUER 
DIZER < TAMANHO > 
VOCE PODE ENCOIJTRA-LA ( 
NATECLAD J 


Se voce digitar 


DIM a(4) 

o TK95 ficara sabendo que voce deseja um bloco 
denominado a, com 4 compartimentos. Este tipo de bloco e 
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denominado "array" (matriz). Seu nome deve ser uma letra 
do alfabeto. 



Inicialmente todos os compartimentos sao indicados pelo 0. 
Voce pode alterar os numeros utilizando LET, INPUT ou 
READ. Suponha que voce deseja o ndmero 7 no segundo 
compartimento. Voce poderia digitar: 

LET a(2)-7 


AEm 


r - . — 

a(a) 

a(3) 

[a (4) 


Aqui esta um programa para mostrar uma matriz sendo 
preenchida utilizando INPUT: 

T0 DIM b(5) 

20 PRINT "Digite 5 numeros" 

30 PRINT "Pressione ENTER apos cada 
um deles" 

40 PRINT 
50 FOR n=1 TO 5 
60 INPUT b(n) 

70 PRINT "Coloquei";b(n) 
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80 PRINT "em um compartimento" 
;n 

90 PRINT 
100 NEXT n 



No prdximo programa, o TK95 le os numeros em uma 
matriz em uma lista de dados. Depois disto, ele pede que 
voce escolha um numero e vai entao procurar na matriz 
para verificar se o numero que voce escolheu esta em 
algum dos compartimentos. 

10 DIM a(6) 

20 FOR b=1 TO 6 
30 READ a(b) 

40 NEXT b 

50 DATA 59,41,5,99,3,6 

60 PRINT "De-me um numero" 

70 INPUT n 
80 PRINT 

90 FOR c=1 TO 6 

100 IF a(c)=n THEN PRINT "ENCONT 
REII": STOP 
110 NEXT c 

120 PRINT "Nao encontrei ";n 
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Para voci fazer 

Diga ao computador para criar uma matriz denominada 'a' 
e nela arquivar as idades dos membros de sua famflia. 



O TK95 vai entao perguntar a sua idade. Voc6 a digita e ela 
ser4 arquivada em um bloco denominado eu. Ele vai entao 
procurar na matriz e contar quantas pessoas sao mais velhas 
que voce. VocS vai precisar de.um bloco de vari^veis 
num^ricas para ser utilizado pelo computador na contagem 
de quantos sao mais velhos que vocS. E importante verificar 
se ele cont6m o 0 antes que o TK95 comece a pesquisar na 
matriz. Cada vez que ele encontrar uma idade maior que a 
sua, acrescenta uma ao ndmero no bloco. 
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Compartimentos para Caracteres 

Voc§ deve lembrar que uma string 6 composta de 
caracteres. Por exemplo, "Hello" 6 uma palavra composta 
dos caracteres, H, e, I, I e o. 



Voce pode criar um bloco na memoria do TK95 onde cada 
caractere seja colocado em um compartimento. Digite: 

DIM a|(4) 

Voce tern agora uma matriz denominada a$ com quatro 
compartimentos. 



A isto d6-se o nome de matriz do tipo string e inicialmente 
existe um espago em cada compartimento. Para substituir 
estes espa^os por letras digite: 


LET a$- "bolo" 




e o computador coloca uma letra da palavra em cada urn 
dos compartimentos. 




a$(D 

a$( 2 ) 

a$(s) 

a$ft) 


Voce pode verificar digitando: 

PRINT a$(3) 

O TK95 devera mostrar a terceira letra da palavra. 

O que voce acha que aconteceria, se voce tentasse colocar 
uma palavra de cinco letras em uma matriz do tipo string 
que tivesse somente 4 compartimentos? Diga ao 
computador para colocar "porta" em a$ 

LET a$= "porta" 

Peqa agora que ele apresente a$ e veja o que acontece. 



Vamos estabelecer agora uma matriz do tipo string com dez 
compartimentos e colocar nela uma palavra de oito letras. 
Desta vez isto sera feito atraves de urn programa: 


10 DIM b$(10) 

20 LET b$=-"spectrum" 



O que ha nos compartimentos nove e dez? Digite o resto do 
programa e faqa-o rodar 

30 FOR s-1 TO 20 
40 PRINT b$; 

50 NEXTs 

Voce vai ver que b$ nao 6 realmente "spectrum", na 
verdade sera "spectrum 



Para voce fazer 

Diga ao TK95 para estabelecer uma matriz do tipo string 
com vinte compartimentos. Voce talvez queira denomina-ia 
w$. O computador pede para colocar uma palavra, que vai 
em w$. Faqa com que o computador verifique cada 
compartimento, contando quantas vezes a letra 's' foi 
encontrada. 
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Um Pouco Mais Sobre Matrizes 
do Tipo String 

Aqui esta uma matriz do tipo string bem grande. Seu nome 
e w$. Eia tern espa?o para quatro palavras sendo que cada 
uma destas palavras pode ter ate dez letras. 

JMB 

Para dizer ao TK95 que estabele?a este bloco digite: 

DIM w$(4,10) 



Usaremos READ para colocar as palavras na matriz. A 
primeira palavra ira para a linha w$(1), a segunda para a 
linha w$(2), e assim por diante. Neste programa o TK95 le 
os nomes de quatro arvores nas quatro linhas do bloco: 

10 DIM w$(4,10) 

20 FOR r=1 TO 4 
30 READ w$(r) 

40 PRINT w$(r); "esta na linha" 


50 NEXT r 

60 DATA "pinheiro","ipe","carval 
ho","jacaranda" 


Quando voce radar o programa vera na tela: 


pinheiro 

ipe 

carvalho 

jacaranda 


esta na linha 1 
esta na linha 2 
esta na linha 3 
esta na linha 4 



Voce poderia ter colocado as palavras na matriz usando 
INPUT em vez de READ. Aqui esta o programa outra vez 
mas com as alteragoes necessarias: 

10 DIM,w$(4,10) 

20 FOR r-1 TO 4 

30 INPUT "De-me o nome de uma ar 
vore";w$(r) 

40 PRINT w$(r);"esta na fila";r 
50 NEXT r 


30 
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Para voce fazer 

Fa?a um programa no qual o computador estabelega uma 
matriz do tipo string, denominada a$, com espago 
suficiente para cinco palavras de dez letras. Eie vai pedir 
cinco vezes que voce digite o nome de um animal. Cada 
um deles vai para uma linha da matriz. 



Agora o TK95 vai escolher qual dos nomes ele gosta mais. 
Voc§ vai precisar usar INT(RND'5)+1 para fazer com que 
ele escolha um numero entre 1 e 5. 


VOU COIGCAE UM NUMERO 
AQUI, ELE E 0 NUMERO 
DO ANIMAL QUE # i 

GOSTO MAIS U 



rniaimmfsi 
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Aqui estS a pSgina de uma agenda onde alguem anotou o 
nome dos amigos e os numeros de telefone. 



A informa?ao foi anotada num formato semelfiante ao de 
uma tabela, com dez linhas, uma para cada pessoa. Cada 
uma destas linhas e considerada um "registro". 



Cada registro tern duas partes — o nome e o numero do 
telefone. Demos a estas partes o nome de "campos". 
















Podemos armazenar esta informagao na membria do TK95 
numa matriz do tipo string. Depois que escolhermos um 
nome e preciso que tres coisas sejam ditas ao computador 
para que ele possa criar um bloco do tamanho certo. Ele 
precisa saber quantos registros desejamos armazenar, 
quantos campos cada um deve ter e o tamanho do maior 
dos strings que vai ser armazenado: 

DIM A$(10,2,15) 

criara uma matriz com um tamanho adequado a essa lista 
de numeros de telefone. 



Aqui esta o programa que coloca os nomes e os numeros de 
telefone na matriz. Todas as letras sao maiusculas portanto 
coloque seu TK95 na modalidade CAPS LOCK 
pressionando CAPS SHIFT e CAPS LOCK. Ao executar o 
programa continue na modalidade CAPS LOCK. 

10 DIM A$(10,2,15) 

20 FOR R = 1 TO 10 
30 READ A$(R,1),A$(R,2) 

40 NEXT R 

50 DATA "ANNE SMITH","709723" 

60 DATA "PETER MORGAN","51-090 

2 " 

70 DATA "JANET MARTIN","304982 
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80 DATA "GORDON MACLEAN","9930 
41" 

90 DATA "JOHN ANDREWS",."51-123 
4" 

100 DATA "MATTHEW DEE","431990" 
110 DATA "SARAH JONES","222334" 
120 DATA "WILLIAM SMALLER","787 
841" 

130 DATA "GARY MORRIS","23-1142" 
140 DATA "STEPHEN ROGERS","1010 
94" 


Vamos agora ampliar o programa para que o computador 
possa encontrar determinado numero quando precisarmos 
dele. Em primeiro lugar o TK95 vai pedir que voce digite um 
nome: 

150 PRINT "QUALO NUMERO QUE VOCE 
PRECISA?" 

Em seguida ele vai separar um bloco com espago para 
quinze caracteres para nele colocar sua resposta. 

160 DIM N$(15) 



Voce digita o nome da pessoa cujo numero voce quer. Ele 
vai para Nf. 







170 INPUT N$ 

Depois de limpar a tela, o TK95 vai procurar nos dez 
registros, olhando os nomes no primeiro carnpo ate 
encontrar o nome que voce digitou. Ele vai entao escrever o 
nome e o numero de telefone. Utilizamos um loop 
FOR...NEXT para fazer com que o computador examine os 
dez registros, um de cada vez. 

180 CLS 

190 FORK =1 TO 10 
200 IF A$(R,1) = N$ THEN PRINT AT 
8,0;A$(R,1);AT 10,0;A$(R,2) 

210 NEXT R 

220 PRINT AT 16,©;"FINAL DA BUS 
CA" 



Voce compreende agora porque o nome que voce digitou 
precisava ir para um bloco com 15 compartimentos? 



Para voce fazer 

Escreva seu proprio programa de numeros de telefone 
usando os nomes de seus amigos. 

Talvez voce possa tambem incluir os enderegos tambem. 
Neste caso voce vai precisar de tres campos para cada 
registro, assim: 

ANNE SMITH 3 NEW ROAD 709732 

PETER MORGAN 101 HIGH STREET 51-0902 

JANET MARTIN 15 CHESTNUT AVENUE 304982 

O TK95 vai precisar de uma matriz maior para armazenar 
esta informagao. Se voce alterar a linha 10 para 

10 DIM A$(10,3,20) 

existira mais espago para dez registros, cada um com tres 
campos: nome, enderego e numero de telefone. Se voce 
colocar 20 como sendo o ultimo ndmero dos parenteses, 
estara crjando espago para 20 letras em cada carnpo. Isto 
devera ser suficiente para um enderego, mas se um de seus 
amigos tiver um enderego particularmente longo voce vai 
precisar de um numero maior do que 20. 
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Para Lae para Ca 

Aqui esta urn programa em duas partes — a principal e uma 
outra denominada "sub-rotina". 



10 REM Programa principal 
20 PRINT "Voce quer saber o que 
esta na minha sub-rotina?" 

30 INPUT at 

40 IF a$«"yes" THEN CO SUB 100 
50 IF at <> "yes" THEN PRINT AT 
10,0;"Amigo da onca!" 

60 PRINT AT 20,0:"Este e o fi 
nal do programa" 

70 STOP 
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100 REM Sub-rotina 
110 FOR c=0TO 22 
120 LET i-INT (RND*7) 


130 INK i 

140 PRINT AT 10,c;"TK9OX" 
150 SOUND 15,c 
160 NEXT c 
170 INK 0:CLS 
180 RETURN 


Na linha 40 do programa principal temos urn comando para 
que o TK95 GO SUB 100. Ele diz ao computador para 
encontrar a linha 100 e executar a lista de instrugoes que 
comega ali. Quando ele encontra a palavra RETURN, sabe 
que 6 hora de voltar e continuar com o programa principal. 



A palavra STOP, no final do programa principal, e muito 
importante. O que vocg acha que aconteceria se a linha 70 
ficasse de fora? 

Aqui esta urn programa de perguntas e respostas com duas 
sub-rotinas. 


10 REM QUIZ 
20 PAPER 7: INK 0: CLS 
30 DIM a$(10,2,8) 

40 LET escore=0 
50 REM leia DATA 
60 RESTORE 700 
70 FOR r-1 TO 10 
80 READ a$(r,1),a$(r,2) 
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90 NEXT r 

100 PRINT AT 2,2; "Coletivos" 

110 FOR a-1 TO 10 
120 BORDER 3 
130 PRINT AT 6,2; "De o coleti 
vo" 

140 PRINT AT 8,2;a$(a,1) 

150 DIM y$(8): INPUT y$ 

160 CLS 

170 IF y$-a$(a,2) THEN CO SUB 
300: REM certo 

180 IF y$< >a$(a,2)THEN CO SUB 
500: REM Errado 

190 INPUT "Pressione ENTER ";z$ 
200 CLS 
210 NEXT a 
220 REM Escore 

230 PRINT AT 10,2;"Voce acertou" 

; escore;" entre um e 10" 

240 STOP 



300 REM Certo 
310 LET escore=escore+1 
330 PRINT AT 10,2;"Certo" 
410 RETURN 
500 REM Errado 
520 PRINT AT 10,2;"Nao, e?"; 
a|(a,2) 

600 RETURN 



700 DATA "lobos","alcateia" 

710 DATA "camelos'V'cafila" 

720 DATA "elefantes","manada" 
730 DATA "cachorros","matilha" 
740 DATA "peixes""cardume" 
750 DATA "abelhas","enxame" 
760 DATA "passaros","revoada" 
770 DATA "formigas","corre|cao" 
780 DATA "carneiros","rebanho" 
790 DATA "gafanhotos","nuvem" 



Voce encontrara os comandos GO SUB nas linhas 170 e 180 
do programa principal. 

As perguntas sao sobre animais, e seus coletivos, mas se 
voce quiser podera facilmente altera-lo e escolher um 
assunto que Ihe agrade. Altere as linhas 100 e 130 e coloque 
seus proprios dados nas linhas 700 a 790. Quern sabe voce 
gostaria de usar este programa de perguntas e respostas para 
testar seu vocabulario de ingles? 
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Para voce fazer 

Torne a sub-rotina "certo" e "errado" mais divertida, 
introduzindo som e cor. 



Em outro capftulo mais adiante vamos acrescentar algumas 
linhas a este programa de perguntas e respostas. Se voce 
gravar o programa numa fita nao precisara digiti-lo outra 
vez. 
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Marque um Ponto e 
Trace umaLinha 

No seu TK95 vocS pode usar grSficos de "alta resolu?ao", 
isto signitica que voce pode criar na tela figuras e diagramas 
precisos. 



Em BASIC as palavras utilizadas para tra?ar linhas sao PLOT 
e DRAW. Voc§ vai encontrd-las escritasem branco prdximo 
a parte esquerda superior do teclado. Quando voce precisar 
de uma delas basta pressiona-la. 






Imagine sua tela dividida em quadrados como estes: 



Os numeros na horizontal comegam em 0 no canto inferior 
esquerdo e terminam com 255 a direita. A linha que 
contem estes numeros e normalmente denominada "eixo 
de x". 

Quando voce quiser que o TK95 desenhe um ponto na 
tela, e preciso dizer a ele a que distancia do centra, e a que 
altura o ponto deve ficar. Digite: 


PLOT 30,10 


e um ponto aparecera proximo ao canto esquerdo inferior 
da tela. 



Eu USO A PALAVRA 
‘PIXEL’PARA DESIGNAE 
UM PONTO 


30 e 10 sao as "coordenadas" do ponto ou elemento de 
imagem. 

Quando voce tiver marcado um ponto use a palavra DRAW 
para tra?ar uma linha a partir dele. A palavra DRAW deve 
ser seguida por dois numeros que dizem ao TK95 ate onde 
deve trapar. Suponhamos que voce quer esta linha 
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Se quisermos que o TK95 trace para a esquerda devemos 
colocar um sinal de menos antes do numero na horizontal. 
Experimente isto - 

DRAW -40,10 

Para tra?ar para baixo colocamos um sinal de menos diante 
do numero na vertical. Diga ao computador para 

DRAW 10,-30 



Este # um programa para desenhar um quadrado: 

10 PLOT 100,60 
20 DRAW 50,0 
30 DRAW 0,50 
40 DRAW -50,0 
50 DRAW 0,-50 


Este quadrado contem um outrO: 

60 PLOT 110,70 
70 DRAW 30,0 
80 DRAW 0,30 
90 DRAW -30,0 
100 DRAW 0,-30 



46 


O TK95 nao tern um comando especial para colorir ou 
preencher uma forma, mas voce pode dar a um quadrado 
uma aparencia de solido desenhando v^rias linhas, uma ao 
lado da outra, assim: 


10 FOR y=55 TO 75 
20 PLOT 60,y 
30 DRAW 20,0 
40 NEXTy 


Um triangulo solido e um pouco mais complicado: 

10 LET s=20 
20 FOR y=50 TO 70 
30 PLOT 60,y 
40 DRAW s,0 
50 LET s-s—1 
60 NEXTy 


Voce pode, e claro, traqar linhas coloridas, dizendo ao 
computador qual a cor para INK e alterar a cor do fundo 
com PAPER. Inclua esta linha no programa para o triangulo 
e execute-o outra vez. 

5 PAPER 0: INK 5:CLS 

Para voce fazer 

Experimente se voce e capaz de desenhar estas formas na 
tela. Escolha as cores. 
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10 

Circulos 

Emfaaixo da tecla H, voce vai encontrar, escrita em 
vermelho, a palavra CIRCLE. Quando voce quiser que o 
TK95 desenhe um cfrculo na tela serS preciso que voce 
indique onde deve ficar o centra deste cfrculo e o 
comprimento do raio. Digite 


CIRCLE 130,90,50 

e voce tera um cfrculo proximo ao centra da tela. 



















Este 6 urn programa curto que trapa cfrculos concentricos. 
Todos possuem o mesmo centra (120,80) mas os raios sao 
diferentes. 


10 FOR r=5 TO 60 STEP 5 
20 CIRCLE 120,80, r 
30 NEXT r 

Agora, vamos desenhar dez cfrculos cada urn com raio 20. 
O TK95 A quem vai decidir onde coloca-los na tela. 

10 FOR c-1 TO 10 
20 LET x=INT (RND*236)+20 
30 ,LET y=INT (RND*156)+20 
40 CIRCLE x,y,20 
50 NEXT c 



LEU PRECI80 DE UM, 
NteROESmE 
> 20E 255PAKAA 
COORDEMADA 
‘HORIZONTAL’, 
ASSIMMEU 
CiBCLJLOOOM20r 
deraionAo 
SAIDA TELA 


Se voce quiser desenhar vArios cfrculos, pode colocar as 
coordenadas e os raios em uma lista de DADOS como esta: 

10 FOR c-1 TO 9 
20 READ x,y,r 
30 CIRCLE x,y,r 
40 NEXT c 

50 DATA 130,90,50,80,90,20,180 
,90,20 
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60 DATA 130,40,20,130,140,20,9 

5.55.30 

70 DATA 95,125,30,165,125,30,1 

65.55.30 

Para voce fazer 

1) Faga um programa para desenhar este rosto: 



As pupilas e as narinas sao pontos simples. 

2) Aqui estA um programa no qual o TK95 pergunta se 
vocS gostaria de ver quadrados e cfrculos coloridos. Tern 2 
sub-rotinas — quadrados e cfrculos. A sub-rotina dos 
quadrados jA estA'feita mas voce terA que criar uma para os 
cfrculos. 

10 REM Formas 
20 INK 0: BORDER 7 
30 PRINT "FORMAS" 

40 PRINT AT 4,0:"Eu sei desenha 
r" 

50 PRINT AT 6,0:"circulos" 

60 PRINT AT 7,0;"quadrados" 

70 PRINT AT 15,0:"Qual deles v 
oce quer?" 

80 PRINT AT 18,0:"Para terminar di 
gite stop" 

90 INPUT a$ 
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100 

CLS 

110 

IF a$="circulos" THEN GO SUB 

200 


120 

IF a $=''quad fad os" THEN GO S 

UB 300 1 

130 

IF af ="stop" THEN STOP 

140 

RUN 

200 

REM circulos 

280 

INPUT "Pressione ENTER",b$ 

290 

RETURN 

300 

REM quadrados 

310 

FOR a-1 TO 40 

320 

LET c=INT (RND*7) 

330 

LET x-INT (RND*200) 

340 

LET y=INT (RND*125) 

350 

LET n-INT (RND*40)+10 

360 

PLOT x,y 

370 

SOUND .2,n 

380 

BORDER c: INK c 

390 

DRAW n,0: DRAW 0.n: DRAW —n 

0: DRAW 0, -n | 

400 

NEXT a 

410 

INPUT "Pressione ENTER" .b$ 

420 

RETURN 


VOCEDESENHAQUADRADOS A 

UMS deprbssa do que 
circulos, naoe? 1 





1 
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Se ali existe um ponto marcado, o TK95 responded com o 
numero 1. Se nao, o computador respondera com um 0. 
Limpe a tela outra vez e crie um ponto com 
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PLOT 100,150 

Agora pega ao TK95 para 

PRINT POINT (100,150) 

Aqui estS urn programa onde o TK95 traga uma linha de 
pontos na tela de 200,0 ate 200,175. Ele entao vai tragar 
uma segunda linha de pontos de um lado a outro da tela, 
de 0,100 a 255,100. A segunda linha cruza a primeira. 

10 FOR y=0TO 175 
20 PLOT 200,y 
30 NEXTy 
40 FOR x=0 TO 255 
60 PLOT x,100 
70 NEXT x 

Rode o programa e acrescente entao a linha 50: 

50 IF POI NT (x,100)=1 TH EN STOP 

Quando voce radar novamente o programa o que acontece 
e o seguinte: antes de marcar cada ponto atraves da tela, o 
computador verifica se aquela posigao ja foi marcada antes. 
Se ja tiver sido marcada o programa serS interrompido. 




O prbximo programa chama-se "Garatujas". Assim que 
voce comega a radar o programa o TK95 comega a tragar 
uma linha de pontos atraves da tela, movimentando-se para 
a direita. Para mudar a diregao do movimento, pressione 
a — para cima 
z — para baixo 
n — para a esquerda 
m — para a direita 

Nao e necessario manter sempre a tecla pressionada, basta 
pressionar quando quiser mudar de diregao. 



10 REM Garatujas 
20 BORDER 4: INK 2: CLS 
30 LET x=0: LET y=90 
40 LET d$="cn" 





50 PLOT x,y 
60 LET i$-INKEY$ 

70 IF i$< >""THEN LET d$-i$ 

80 IF d$= "a" THEN LET mx-0: L 
ET my=1 

90 IF d$-"z" THEN LET mx-0: L 
ET my—1 

100 IF dl- "m" THEN LET mx=1: L 
ET my-0 

110 IF d$="n" THEN LET mx—1: 

LET my=0 

120 LET x=x+mx: LET y=y+my 

130 IF x < 0 OR x > 255 THEN CO TO 

170 

140 IF y < 0 OR y > 175 THEN CO TO 
170 

160 CO TO 50 

170 INK 1: PRINT AT 10,10;"Co 
lisao!" 

180 SOUND 1,7 


Se voce tiver uma impressora ZX vai poder fazer uma copia 
das suas garatujas em papel. O proximo capltulo ensina a 
executar esta tarefa. Talvez agora voce queira salvar o 
programa em fita assim ele estara pronto para ser usado 
outra vez com a impressora. 


Para voce fazer 

Acrescente uma linha ao programa garatujas (linha 150), 
para que o TK95 passe para a linha 170 se voce tentar 
atravessar uma linha que ja tenha sido desenhada. 
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A sua Impressora ZX 

Se voce possui uma impressora ZX podera imprimir e 
conservar por escrito todos os seus programas. 



Primeiro e preciso acoplar a impressora ao seu TK95. E 
muito importante que o TK95 nao esteja ligado enquanto 
voc§ faz esta conexao pois isto poderia danificar tanto a 
impressora quanto o computador. 
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E este o local para a conexao da impressora. Pressione a 
tomada azul da impressora contra a borda do quadra no 
computador assegurando-se de que a listinha branca na 
tomada de conexao da impressora esteja em alinhamento 
com a abertura no quadra. 



Agora voc§ pode ligar a energia. 

Quando voce recebe a sua impressora, ela vem carregada 
com urn rolo de papel no qual esta impresso urn desenho 
circular. Para retirar este desenho aperte urn pequeno botao 
preto que esta localizado a direita da impressora e ele fard 
sair o papel. 
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Tire o dedo do botao e rasgue o papel. A impressora possui 
um dispositivo serrilhado para esta finalidade. 



Existem tres comandos em BASIC para serem usados com a 
impressora — COPY, LPRIN e LUST. Todos estao na carreira 
inferior do teclado. COPY esta escrita em branco e as outras 
em verde. 

Se voc§ tern um programa na memdria do TK95 mude 
para o cursor E e pressione LUST e em seguida ENTER. O 
programa seri impresso no papel. A impressora 
provavelmente vai Ihe dar um susto quando comegar a 
funcionar. Ao contrario do TK95, ela nao trabalha 
silenciosamente. 



0 QOE SERA ESTE OHEIRO . _ 

DE QUEIMADO? Jf A IMPRESSORA FDNCIOHA 

/ QUEIMANDOOREVESTIMEMf) 1 
I PRATEADO DO PAPEL PARA QUE I 
APAKEQA A PARTE PRETA 
QUE ESTA POR BADCO J 
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Com COPY, voce podera copiar no papel qualquer coisa 
que esteja na tela naquele momento. Tente executar este 
programa e veja o que o TK95 vai desenhar na tela. 
Quando ele tiver acabado — vai demorar bastante — 
pressione COPY e ENTER. A impressora passara o desenho 
para o papel. 

10 FOR x=—100 TO 100 
20 LET y=x*x 

30 CIRCLE x+120,y/100+20,20 
40 NEXT x 



ERA ISTO MESMO QUE 
EU PRECISAYA PARA 
REGAR 0 MEU JARDIM 


Voce tambem pode colocar COPY num programa. Coloque 
"Garatujas" no seu computador e acrescente esta linha: 

115 IF d$="c" THEN COPY 

Rode o programa. Cada vez que voce pressiona "c" a 
impressora copiara a tela. Aqui esta um exemplo: 

10 LPRINT "Digite seu nome,por 
favor'' 

20 INPUT n$ 

30 FOR a =1 TO 50 
40 LPRINT n$; 

50 NEXT a 


Voce nao pode usar LPRINT AT. Se voce pensar bem, logo 
vai descobrir porque. 
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L PRINT AT,20,0;“BAIXO” 
I L PRINT AT 0,0;“ALTO" 


[NAOPOSSOFAZER 
|1 COM QUE 0 PAPER 
| ANDE PARA TKAS! 


Entretanto voce pode usar a palavra TAB, para dizer• ao 
computador em que coluna deve imprimir. TAB pode ser 
usada tanto com PRINT quanto com LPRINT. 


1 PRINT TAB Iff; “OLA!” ’ 
querdizervAatba 
COLUNA Iff DA1MPRESS0RA 
EDEPOISIMPRIMA“OLA!” 


Estas sao algumas linhas adicionais para serem 
acrescentadas ao programa de perguntas e ' es P os ^ s °° 
Capitulo 8. Elas substituem a sepao escore (linhas 220 a 
240), e darao a voce urn diploma provando como voce 
ganhou bem o jogo. 

220 REM Diploma 
230 INPUT "Digite seu nome, por 
favor";n$ ****»■** 

240 LPRINT "************* 

245 LPRINT 

250 LPRINT TAB 4 ;"Coletivos” 

255 LPRINT 

260 LPRINT TAB 4;n$ 
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Caracteres e Codigos 

Cada uma das palavras e cada um dos caracteres que voce 
pode digitar no teclado do TK95 <§ acompanhado por um 
numero chamado numero de Codigo (CODE number). O A 
por exemplo tern como numero de codigo 65. Para que o 
TK95 diga isto, digite: 

PRINT CODE "A" 

Se voce der um numero ao TK95 ele podera dizer qual o 
caractere ou palavra que o acompanha. 

PRINT CHR$ 245 

fara com que ele responda PRINT, porque o numero de 
Cddigo de PRINT e 245. 



Digite este programa e o computador vai apresentar o 
numero de Cddigo de cada palavra e de cada caractere do 
teclado: 

10 FOR C“32 TO 255 
20 PRINT c,CHR$c 


30 PRINT 
40 NEXT c 

Quando ele perguntar "scroll" (rolar a tela)? Pressione 
qualquer tecla (exceto N ou BREAK) e ele apresentara a tela 
seguinte. No manual do seu TK95 vocS encontrara uma lista 
de caracteres e seus codigos. 



ANTES DE PODER LER 
YOU TER QUE DECIFRAR 
0 CODIGO 


Talvez voc6 j«i tenha percebido que os cddigos de 126 a 143 
pertencem aos caracteres graficos — aqueles que estao na 
carreira superior do teclado e para os quais voc6 precisa do 
cursor G. 



Os prdximos vinte e um numeros de cddigo, de 144 a 164, 
parecem pertencer a um segundo conjunto de letras 
maiusculas de A a V. Mas na verdade eles sao numeros de 
cddigo extra e voce pode escolher seus prdprios caracteres 
graficos para eles. Isto sera explicado no prdximo capftulo. 
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Para voce fazer: 

Voce e capaz de decifrar esta mensagem? 

PRINT CHR$ 86;CHR$ 111;CHR$ 99 
;CHR$ 101;"APRENDEU";CHR$ 111 
;CHR$ 115;CHR$ 67;CHR$ 111;CHR$ 
100;CHR$ 105;CHR$ 103;CHR$ 11 
1;CHR$ 115 
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Seus Proprios Caracteres 

Os jogos ficam muito mais divertidos no seu TK95 quando 
envolvem pessoas reais, carros, foguetes etc. Voce pode 
escolher seus prdprios caracteres e coloca-los na memoria 
do TK95, prontos para serem usados num programa. 



Os caracteres especiais projetados por voce sao 
denominados "simbolos graficos definidos pelo usuario". 
Erri primeiro lugar voce precisa desenhar em papel 
quadriculado, um quadrado com oito espagos de lado. 
Quando seu caractere aparecer na tela ocupara um espago 
correspondente a 8 x 8 elementos. 
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Agora desenhe seu prdprio caractere sombreando alguns 
dos quadrados. Isto d um aviao visto de cima. 



■■ 1 


■■ 

■■■ 

■■ 

■ 

■■ 

■ 


■■■ 

■■ 

■■■■■ 



Numere as linhas de seu quadriculado assim: 

filal 

i m i iT~n 

ffla8 


fila 3 


ffla4‘ 


fila 5 

■■ ■■ 


: escreva estes numeros na parte de cima das colunas: 


lZBii 3216 8 i 2 1 



Faga o mesmo com as outras linhas de forma que ao 
terminarvocetera oito numeros, um para cada linha. 


128 6t 32.16 8 i 2 1 


No capitulo anterior vimos que o TK95 tern espago em sua 
memdria para 21 caracteres novos e existe um numero de 
cddigo reservado para cada um deles. CODE 144 pertence 
temporariamente a um A de reserva. Faremos uma alteragar 
para que ele passe a pertencer ao nosso aviao. O TK95 
usara 8 unidades de mem6ria para armazenar a informagao 
sobre o caractere — uma para cada linha do quadriculado. 
Este programa vai colocar o aviao na memoria do 
computador: 
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10 FOR a-0 TO 7 
20 READ n 
30 POKE USR "a"+a,n 
40 NEXT a 

50 DATA 32,56,158,255,158,56,3 



POKE significa 'coloque em'. E preciso dizer ao TK95 onde 
colocar e entao, depois da virgula, o que colocar. 

Rode o programa. Para ver seu caractere aparecer na tela, 
digite: 


Mude agora para o cursor C e pressione A. Volte ao cursor L 
e termine com uma outra serie de aspas. Pressione ENTER. 


Esta d uma outra maneira de fazer surgir o aviao: 


PRINT CHRt 144 


Uma vez que voce tenha rodado este programa o aviao 
estara arquivado na memdria do TK95 e pressionando A 
com o cursor C voce fara com que ele surja na tela. Mesmo 
que voce pressione NEW, ele continuara Id ate que voce 
desligue o computador ou ate que voce desenhe outro 
caractere para a tecla de caracteres graficos A. 

Aqui esta urn programa no qual o aviao atravessa a tela. 

Para explod Mo em pleno voo, pressione a tecla P. 

10 FOR a=0 TO 7 

20 READ n 

30 POKE USR CHRt 144+a,n 

40 NEXT a 

50 DATA 32,56,158,255,158,56,3 


NA LINHA 30 USAMOS 
CHRt 144 EM VEZ DE 


60 PAPER 5:CLS 
70 INK 2 
80 FOR c=0 TO 30 
90 PRINT AT 10,c;" A" 

100 IF INKEYt - "p" THEN GOTO 13 
D 

110 NEXT c 
120 STOP 

( VOCEDEVEMtJDAROcitSOlP 
ggf ^ PARAG 

^ °- p ‘ H AMES DE DIGITAR a NO PINAL 


i DEPOIS MODE OUTRA VEZ PARA L 
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Calcule os oito numeros para cada urn deles e coloque-os 
nas li nhas 70 a 100 deste programa: 


10 

FOR c=144 TO 147 

20 

FOR a=0TO 7 

30 

READ n 

40 

POKE USR CFHR$ c+a,n 

50 

NEXT a 

60 

NEXT c 

70 

DATA 

80 

DATA 

90 

DATA 

100 

DATA 


Os quatro novos caracteres terao como numeros de codigo 
144, 145 , 146 e 147. Voce pode coloca-los na tela com o 
cursor C e A, B, C e D. 
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Se voce> disser ao computador o numero da linha e os 
numeros da coluna referentes a Lima posigao na tela, o 
TK95 pode examinar o quadrado e dizer o que existe 
naquele determinado local. A palavra em BASIC que deve 
ser usada e SCREEN.que esta escrita em verde embaixo da 
tecla K. Neste programa voce podera ver como ela 
funciona: 


10 PRINT AT 10,10;"A" 

20 - PRINT AT 15,0;"Em 10,10 Veja"; 
30 PRINT SCREEN$(10,10) 
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Experimente isto: 

10 PRINT AT 0,0;"«8" 

20 PRINT AT 10,0;"Em 0,0 Vejo"; 

30 PRINT SCREEN! (0,0) 

No Capltulo 17 voce encontrara um meio de verificar estes 
caracteres graficos. 

O proximo programa chama^se "Para-quedista".Um homem 
esta tentando chegar ao solo mas naquela area existem 
muitos arranha-ceus. Use a tecla 5 para movimenta-lo para 
a esquerda, e a 8 para a direita, O computador vai usar 
SCREEN! para faze-lo parar se esbarrar num predio. Voce 
vai precisar do cursor Graphics para o A na linha 200. 

10 REM Para-quedista 
20 FOR a=0 TO 7 
30 READ n 
40 POKE USR "a"+a,n 
50 NEXT a 

60 DATA 56,124,124,68,84,56,16 
,40 



70 BORDER 5: PAPER 7: CLS 
80 INK 0 
90 FOR c=-0 TO 31 
100 LET s = INT (RND*5) 

110 IFs=0THEN GOTO 160 


120 LET b=INT (RND*10)+10 
130 FOR a-b TO 21 
140 PRINT AT a,c;"x" 

150 NEXT a 
160 NEXT c 



170 LET mc = INT (RND*32) 

180 INK 2 

190 FOR r=0 TO 21 

200 PRINT AT r,me;"A" 

210 SOUND .05,24 
220 IF SCREEN! (r+1,mc)="X" THE 
N PRINT AT 6,14;"SOCORRO":STOP 
230 IF r < 21 THEN PRINT AT r,me 


240 LET d$=INKEY! 

250 IF d$-"5" AND m > 0THEN LE 
T mc=mc—1 

260 IFd$"8"ANDmc < 31 THEN L 
ET mc-mc+1 


270 NEXT r 
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Para voce fazer: 

Aqui esta uma sugestao para um programa: Um cameirinho 
esta preso em um prado e quer sair. Entretanto, existem 
apenas algumas aberturas na cerca e ele nao b muito 
inteligente, anda sempre em linha reta. 



Voce deve fazer com que ele ande pelo prado e pare se 
esbarrar na cerca. 

O programa b dividido em tres partes principals. Em 
primeiro lugar voce vai precisar desenhar o carneiro e 
coloca-lo na memoria do seu TK95. Apresentamos abaixo 
uma sugestao para o carneiro: 


Em seguida voce vai desenhar a cerca com aberturas 
colocadas ao acaso. Use o simbolo # na tecla 3 para fazer a 
cerca. Voce pode fazer isto assim. 

90 FOR f=0 TO 21 
100 LET r=INT (RND*3) 

110 IF r=0THEN PRINT AT f,20 

120 IF r< >0 THEN PRINT AT f,20; 

130 NEXT f 

Agora faija o carneirinho andar pelo prado verificando 
sempre se existe uma parte da cerca no caminho. 
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Efeitos Especiais 

Como voc£ sabe, a tela do TK95 tem setecentos e quatro 
espa^os nos quais ele pode imprimir um caractere. 



Voce pode escolher uma cor de papel e uma cor de tinta 
para cada quadrado. Este programa determina as cores para 
oito quadrados: 

10 PAPER 4: INK 2 
20 PRINT AT 10,9;"TK95" 

Rode o programa e entao pressione ENTER para ver outra 
vez a sua listagem. A linha 10 do programa alterou as cores 
de INK e PAPER e sua listagem 6 tambem vermelho sobre 
verde: 


80 



Agora pressione NEW para limpar a memoria do 
computador. Apresentamos abaixo uma versao diferente do 
ultimo programa. Digite e rode. 

10 PRINT PAPER 4; INK 2; AT 10,9 
;"TK 95" 



Pressione ENTER. Sua listagem ainda apresenta preto sobre 
branco. Porque os comandos PAPER e INKforam colocados 
depois da palavra PRINT, seu efeitp foi apenas temporario. 
Alteram somente as cores na linha em que se encontram. 
Acrescente a linha 20: 

20 PRINT AT 12,9;"COMPUTADOR" 

Rode outra vez o programa e vera que os comandos para 
cores nao sao validos para esta linha. 
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Na ultima fileira do teclado, depois de INK e PAPER, voce 
vai encontrar as palavras FLASH, BRIGHT, OVER e 
INVERSE. Estas sao palavras que servem para efeitos 
especiais e voce pode usa-las para realgar o que foi 
impresso natela. 

Em primeiro lugar FLASH. Digite 

10 PRINT INK 1;PAPER 6;"azul 
sobre fundo amarelo" 



Quando voc6 radar este programinha vai ser exatamente o 
que ele diz — tinta azul sobre papel amarelo. Agora altere a 
linha para que fique ass.im: 

10 PRINT INK 1; PAPER 6; FLASH 
1 ;"azul sobre fundo amarelo" 



FLASH 1 d o comando para tornar a imagem intermitente. 
Como voce pode observar, ao radar o programa as cores de 
"ink" e "paper" se alternam. Tente escrever urn programa 
que coloque seu nome na tela usando as cores azul e ciano. 
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Sera que faz alguma diferenga se voce permutar as cores de 
INK e PAPER do programa? 

FLASH 0 anula o comando FLASH 1. Voce pode observar 
isto no proximo programa. 

10 FLASH 1 
20 FOR f-1 TO 60 
30 LET i—I NT (RND*8) 

40 LET p-INT (RND*8) 

50 PRINT INK i; PAPER p;FLAS 
HING"; 

60 NEXT f 
70 FLASH 0 

80 PRINT AT 18,0"Rode novamente 
e vera que as cores estao difere 
ntes" 



BRIGHT e util para realgar palavras na tela. Tente isto: 


10 INPUT BRIGHT 1; "Por favor di 
gite seu nome ";n$ 
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Fa?a brilhar usando BRIGHT 1 e apague com BRIGHT 0. Se 
voce quiser que toda a tela brilhe digite 

BRIGHT 1:CLS 

O que fazer para que tudo volte ao normal? 



PARADESTACARBEM 
QUALQUER COISA VOCE 
PODE USAR FLASH E BRIGHT 
JUNTOS 


Para destacar palavras INVERSE tambem d muito bom. No 
caso de urn jogo que tenha uma folha de instru?oes no 
imcio voce pode segui-las com 


100 PRINT INVERSE 1; AT 20,6;"Di 
gite ENTER para continuar" 



(COMOVOCECONSEGUIU ^ 
L<; COLOCAR AS PALAVRAS 
|1 EXAIAMENTE 
1\ NO MEIO DA LINHA? 


rvrt ‘PRESS ENTER TO GO ON’ TEM \ 
[ T VINTECARACTERES. UMA LINHA 1 
TEM 32. PORTANTO SOBRAM IB... 
C0L0CAM0S 6 NO INICIO E 6 NO ) 
FINAL J 


INVERSE quer dizer "o oposto". Na verdade o que o 
computador faz d permutar as cores de INK e PAPER. Use 
INVERSE 1 para inverter e INVERSE 0 para voltar ao normal. 


Espero que vocd saiba o que este programa faz: 

10 PRINT AT 0,0;"OOOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOO" 

20 PAUSE 50 

30 PRINT AT 0,0;"XXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXX" 

Quando voce tiver rodado o programa altere a linha 30 de 
modo que a listagem agora seja: 

10 PRINT AT 0,0;"OOOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOO" 

20 PAUSE 50 

30 PRINT OVER 1; AT 0,0;"XXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXX" 

Rode outra vez o programa. 



O TK95 colocou X na parte de cima dos O. E interessante 
saber a respeito de OVER que se voce disser ao TK95 para 
colocar uma outra linha de X sobre a nossa linha de 
caracteres misturados poderemos na verdade fazer com que 
ele apague os X. Acrescente estas duas linhas ao programa: 

40 PAUSE 50 

50 PRINT OVER 1;AT 0,0:"XXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXX" 
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Sera que voce consegue alterar a linha 50 para que em vez 
de apagar os X ele apague os O? 

OVER e muito util quando voce quer que um objeto se 
movimente atraves da tela sem apagar q fundo. Aqui esta 
uma nave que passa pelo sol: 

10 BORDER 5; PAPER 7: INK 6: CLS 
20 FOR a-5 TO 25 STEP 5 
30 CIRCLE 100,100,a 
40 NEXT a 
50 FOR c=0 TO 31 
60 PRINT INK 0;OVER 1:AT 10, 
c;"+" 

70 PAUSE 10 

80 PRINT OVER 1;AT 10,c;"+" 

90 NEXT c 
100 INK 0 


Para voce fazer: 

Acrescente uma linha ao programa do sol para que a tela 
fique brilhante. Fa?a com que a nave pisque ao atravessar a 
tela. 
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Atributos 

No Capftulo 15 verificamos que ao usar SCREEN!, podemos 
fazer com que o computador examine um quadrado na tela 
e diga o que existe nele. Entretanto, ele nao pode 
reconhecer os caracteres graficos. Ainda bem que existe um 
outro mc§todo para fazer com que o TK95 examine as 
posiqoes na tela e desta vez, isto serve para todos os 
caracteres. 




O TK95 pode examinar um quadrado e descobrir: 

Se esta fixo ou intermitente, 

Se esta brilhante ou normal, 

A cor para PAPER, 

A cor para INK. 

Estes quatro itens sao denominados 'atributos', neste caso 
daquele quadrado, e a palavra em BASIC para fazer Com 
que o TK95 procure por eles e ATTR. 
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Se voce disser ao computador para 


PRINT ATTR(10,20) 

ele vai apresentar um numero, descrevendo os atributos do 
quadrado que esta na linha 10, coluna 20. 

Vamos tentar este programa: 


10 PRINT FLASH 1; BRICTH 1; P 
APER 2; INK 6;AT 10,20;" " 

20 PRINT ATTR (10,20) 



Para chegar ao numero dos atributos o TK95 soma quatro 
numeros: 

(1) 128 se o caractere estiver 

intermitente: 0 se estiver fixo 

(2) 64 se estiver brilhante: 0 se nao estiver 

(3) 8 vezes a cor de PAPER 

(4) A cor de INK 


Portanto para nosso caractere intermitente, brilhante, 
vermelho e amarelo ele somou 

128 intermitente 
64 brilhante 

16 8 vezes a cor de PAPER 
6 a cor de INK 
214 

Altere o programa de modo que o caractere esteja normal 
em vez de brilhante. Tente calcular o ndmero dos atributos 
antes de radar o programa. 

Aqui esta um programa no qual um elefante tenta encontrar 
seu caminho na floresta. Depois de programar os caracteres 
gnSficos para a arvore e para o elefante, o computador 
apresentara 50 arvores na tela, ao acaso (linhas 130 a 170). 
Quando ele perguntar "Qual a linha para o elefante?", 
digite um numero entre 0 e 21 e entao o elefante vai andar 
pela tela. ATTR na linha 220 verifica se ele encontrou 
alguma arvore. 



A LINHA 220 PROCURA 
UM CARACTERE FIXO, 
BRILHANTE 
PAPER PRETOE INK VERDE 


10 REM elefante 
20 REM Caracteres GrSficos 
30 FOR c=144 TO 145 
40 FOR a-0 TO 7 
50 READ n 

60 POKE USRCHR$c+a,n 
70 NEXT a 
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80 NEXT c 

90 DATA 16,56,124,16,56,124,16 
16 

100 DATA 0,0,126,251,255,125,69 
68 

110 REMfundo 

120 BRIGHT 1: BORDER 0: PAPER 0 
CLS 

130 FOR t = 1 TO 50 

140 LET lin ha = I NT (RND*22) 

150 LET coluna=INT (RND*22)+10 
160 PRINT INK 4;AT linha,coluna; 

"A” 



^- 

'KS Jh PARA 0 A DA 

LINHA 160 MUDE PARA 
0 CURSOR G.FACAO 
MESMO PARA 0 B DA LINHA 210 


170 NEXT t 

180 REM O elefante anda 
190 INPUT "Qual a linha para o 
elefante? ";e 
200 FOR c=0 TO 31 
210 PRINT BRIGHT 0, INK 7;AT e 
c;"B" 

220 IF ATTR (e,c+1)=68 THEN SO 
UND 2,-10: STOP 
230 PAUSE 10 
240 PRINT AT e,c;" " 

250 NEXT c 
260 FOR b=0 TO 12 
270 SOUND .1,b 
280 NEXT b 


Para voce fazer: 

1. Altere o programa do elefante de modo que: 

A tela fique normal em vez de brilhante 
BORDER seja verde e PAPER branco 
Deixe que as arvores continuem verdes. O numero de 
atributos na linha 220 devera ser alterado porque as arvores 
nao serao mais brilhantes e a cor de PAPER que 
corresponde a elas sera diferente. 



2. Estas sao algumas outras alteraqoes que voce podera 
fazer: 

Na linha 190 deixe que o computador escolha ao acaso a 
linha na qual o elefante devera andar. 

Acrescente mais tr6s linhas que Ihe darao controle sobre o 
elefante de modo que ele nao esbarre nas arvores: 

235 — O TK95 examina o teclado para saber qual a tecla 
que voce esta pressionando. Ele coloca o caractere 
correspondente a tecla em d$. 

242 — Se voce pressionou "6", e o elefante nao estiver na 
ultima linha da tela, o elefante desce. 

244 — Se voce pressionou "7" e o elefante nao esta 
exatamente na parte superior da tela, o elefante sobe. 
Volte ao programa "Areias Movediqas" no Capitulo 1 ele 
podera ser util em relapao a este assunto. 
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Quando voce carrega um programa em seu computador a 
partir de um gravador e otimo que o jogo comece 
imediatamente sem que voce tenha que pressionar RUN. 
Para que isto acontepa voce devera gravar o programa de 
uma maneira especial. 

Conecte o seu TK95 ao gravador assim: 


MIB’VEAB. 



Observe a listagem de seu programa na tela e decida em 
que linha o programa deve comepar a ser rodado. 
Normalmente sera a primeira linha, a linha 10. Para grava 
"elefante" de modo que ele entre imediatamente ao ser 
carregado digite 

SAVE "elefante" LINE 10 


f LINE ESTA EMBAIXO DA 
; TECLA 3. USE 0 CURSOR E , 
E SYMBOL SHIFT ft 
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Quando voce quiser usar o "elefante" carregue-o no TK95 
da maneira usual como 

LOAD "elefante" 
ou 

LOAD" " 

Quando um programa esta entrando seu nome surge na 
tela. Para ter certeza de que o nome nao estara mais na tela 
quando o jogo comepar, acrescente um comando CLS 
proximo ao inicio do programa. 








Quando voce estiver escrevendo um programa que voc§ 
pretende gravar desta forma comece assim: 

10 PAPER 7: INK: CLS 
20 PRINT FLASH 1;AT 10,2;"PARE 
A PITA PRESSIONE ENTER" 

30 INPUT z$:CLS 

Se voce fiver projetado uma apresentagao na tela 
particularmente interessante, talvez queira grava-la sozinha, 
separada do resto do programa. 

Aqui esta um programa denominado "Arte Moderna" 


10 

REM Arte Moderna 


20 

INPUT "Cor para PAPER? ":p 

30 

IF p < 0 OR p > 7 THEN GOTO 20 

40 

PAPER p: CLS 


50 

FQRa-1 TO 50 


60 

LET i=INT (RND*7) 


70 

LET s=INT (RND*(100- 

-a))+1 

80 

LET x=INT (RND*(256- 

-s)) 

90 

LET y=INT (RND*(176- 

-s» 

100 

FOR q=0 TO s 


110 

PLOT INK i;x,y+q 


120 

DRAW INK i;s,0 


130 

NEXT q 


140 

NEXT a 




Digite e^6de-o algumas vezes. Quando chegar a uma 
representagao na tela que voce queira gravar digite 

SAVE "arte" SCREEN* 

E claro que voce nao precisa denomina-la "arte". Escolha 
qualquer nome que voce considere adequado a sua 
representa?ao. Na tela, uma vez que tanto as formas quanto 
as cores devem ser gravadas, o processo de armazenamento 
6 demorado. Voc§ nao pode usar VERIFY para uma tela 
completa. Ao radar a fita as palavras 

Bytes: arte 

aparecem na tela apagando uma parte do desenho. Por esta 
razao quando o TK95 compara aquilo que estS na fita com 
o que esta na tela verifica que sao diferentes. 



Para que o trabalho de arte volte a passar da fita para a tela 
digite 

LOAD "arte" SCREEN* 

Quando o computador encontrar o lugar certo na fita ele 
escrevera 

Bytes: arte 


94 


95 





e entao voce vera o desenho aparecer em preto e branco. A 
maneira pela qual ele vai aparecendo, em listas, e bastante 
surpreendente. Ao terminar o computador vai comeqar a 
colorir. 

Voce pode gravar nao so um programa completo ou uma 
representagao visual na tela mas tambem os dados de uma 
matriz. No Capitulo 21 falaremos mais sobre este assunto 
ao gravarmos uma mensagem em cddigo. 
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Medir e Cortar um String 

O TK95 pode medir um string e dizer seu comprimento — 
em outras palavras, quantos caracteres ele tern. 



A palavra em BASIC para comprimento (length) <§ LEN, que 
voce encontrara em verde em cima da tecla K. Digite 

.PRINT LEN "computar" 

e observe qual o numero que aparece na tela. 

Aqui esta um programa para medir palavras. Voce digita 
qualquer palavra e o computador conta as letras. 

10 INPUT "Quero medir uma palavr 
a.";w$ 

20 PRINT w$ 

30 PRINT "QuantoS caracteres tern 
os aqui" 

40 PRINT "O string e";LEN w$ 
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Se voce quiser que o computador sublinhe uma mensagem 
na tela e preciso que ele saiba o comprimento dela, neste 
caso LEN 6 muito titil. Em "Palavras luminosas", o TK95 
sublinha a mensagem com estrelas coloridas e 
intermitentes. Ele vai tambem centralizar as palavras na tela 
deixando espa?os iguais antes e depois. 

10 REM Palavras luminosas 
20 PAPER 7: INK 0: CLS 
30 INPUT "Por favor digite sua 
mensagem";m$ 

40 IF LEN m$ > 32 THEN RUN 
50 LET comprimento=»LEN m$ 

60 LET coluna=(32—comprimento)/2 
70 PRINT AT 10, coluna;m$ 

80 PRINT AT 11, coluna; 

90 FOR s=1 TO comprimento 
100 LET c=INT (RND*7) 

110 PRINT FLASH 1; INKc;"*"; 

120 NEXTs 
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Alem de medir um string O.TK95 pode tambem corta-lo. 

Ele pode eliminar um so caractere ou um bloco com varios 
caracteres. Voce e quern escolhe. 



Coloque uma palavra em w$ e faremos com que o TK95 a 
corte de vtirias maneiras. 

LET w$"ferramenta" 

Voce pode pedir a quinta letra, assim: 

PRINT w$(5) 

Para obter a primeira letra digite 
PRINT w$(1) 

O que vocS acha que 
PRINT w$(LEN w$) 
apresentaria? 






Com "ferramenta" ainda em w$, vamos pedir ao 
computador para apresentar um grupo de letras do meio da 
palavra. Digite 

PRINT w${2 TO 5) 

e o TK95 apresentara a segunda, terceira, quarta e quinta 
letras. 

/VOCE JA ENCONTROE T[P| 
pSM J ANTES. ESTA EM VERMELHO 
ri/V— NATECLAF J 

Se voce quiser as cinco primeiras letras de w$ podera dizei 
ao computador para 

PRINT w$(1 TO 5) 

Esta e uma outra maneira de fazer isto 
PRINT w$ (TO 5) 



SE VOCE OMITIR 0 NUMERO 
ANTES DE TO, EUVOUSUPOR 
QBE VOCE QUER QHE EU COMECE 
NO INICIO DA PALAVRA J 


PRINT wj (6 TO) 


Se omitirmos o numero depois de TO, o computador 
continuari escrevendo ate o final da palavra. Verifique o 
que acontece se voc§ digitar 


100 


PRINT w$( TO) 


Para voce fazer 

Faga um programa onde o computador pergunte seu nome 
e depois responde, "Muito prazer", e em seguida escreve o 
seu nome. Seja qual for o tamanho do nome ele nao pode 
ser dividido em duas linhas. 
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Bugs 

Bugs sao criaturinhas desagradaveis que se insinuam em 
seus programas e impedem que funcionem de modo 
correto. 



E preciso considerar que eles nunca aparecem sem uma 
boa razao, e esta razao e muito simples, voc£ cometeu erros 
ao escrever ou ao digitar o programa. 

Muitas vezes o TK95 pode descobrir um destes errinhos e 
dizer a voce onde esta e como foi. Aqui esta um programa 
com um bug na linha 20: 

10 INPUT "Qual e o seu nome?" 

;n$ 

20 PRINT "Alo ";m$ 

Execute e digite seu nome. Quando chegar na linha 20 o 
TK95 vai escrever 

2 variable not found, 20:1 

Isto se chama 'Mensagem de erro'. Voce vai encontrar uma 
lista completa de mensagens de erro no manual do seu 


TK95. O numero 2 antes da mensagem e um codigo para 
ajudar vocS a encontrar a mensagem mais rapidamente. 

Os numeros depois da mensagem indicam que o 
computador parou na linha 20, na primeira instrugao da 
linha. O TK95 enviou a mensagem 'Variable not found', 
porque dissemos a ele que procurasse no bloco m$ mas 
nao tinhamos um bloco denominado m$. 



Os bugs ocorrem muitas vezes quando estamos lidando 
com uma matriz ese esquecemos quantos compartimentos 
ela tern. A palavra para compartimento no seu TK95 e 
'subscript'. Isto voce vai poder observar quando rodar este 
programa: 


10 DIM a$(8) 

20 LET a$="parabens" 
30 PRINT a$(10) 



Numeros podem provocar a entrada de erros no programa. 
Esta e uma das formas: 
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10 PRINT 99999999999999999999* 
99999999999999999999 



Um numero menor tambem pode ocasionar o 
aparecimento de um bug se nao for adequado ao local 
onde voce o colocou, Tente isto: 

10 PRINT AT 22,0;" Aqui estou" 



Aqui estao mais dois programas contendo erros: 
10 CIRCLE 150,80,100 



10 PRINT CHR$-1 
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Para voce fazer: 

Veja se pode encontrar os erros destes programas. Corrija os 
erros. 


10 REM acrescentando programa 
20 FOR a=1 TO 5 
30 INPUT "Digite um numero. ";nu 
mero 

40 LET total=total+numero 
50 NEXT a 

60 PRINT "O total e;total 



10 DIM f$(5,10) 

20 FOR S=1 TO 6 
30- READ f$(a) 

40 NEXT a 

50 DATA"margarida","cravo","ro 
sa”,"petunia","violeta" 
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Codemaster 

Com este programa voce pode gravar uma mensagem em 
codigo para mandar para um amigo. Voce poder£ tambem 
decodificar a resposta. 



A primeira parte do programa e o 'menu', onde voce 
escolhe se vai codificar ou decodificar uma mensagem. 

10 REM Codemaster 
20 CLS 

30 PRINT AT 0,0; "Codemaster" 

40 PRINT AT 2,0;"Digite" 

50 PRINT AT 4,0;"1 para codificar 
uma mensagem" 

60 PRINT AT 6,0;"2 para decodifi 
car uma mensagem" 

70 PRINT AT 8,0;"3 para parar" 

80 INPUT a$ 

90 CLS 

100 IF a$="1" THEN GO SUB 140 


110 IF a$="2" THEN CO SUB 350 
120 IF a$-"3"'THEN STOP 
130 GO TO 20 

Em seguida vem a rotina 'codificar' que vai da linha 130 a 
linha 340. Sua mensagem vai para m$ e o TK95 reserva 
uma matriz chamada q$, com o mesmo comprimento que 
m$, para a qual vai a mensagem codificada. 



5^- 1 I I I II II 1 I 1.1 11 I I U K 


140 REM Codigo 
150 INPUT "Digite sua mensagem 
";m$ 

160 IF m$="" THEN RETURN 
170 PRINT m$ 

180 DIM q$(LEN m$) 

190 INPUT "Digite a palavra cha 
ve";c$ 

200 IF c$="" THEN GO TO 190 

Voce vai precisar escolher uma 'palavra-chave' — qualquer 
uma — que voce queira que ira para c$. O computador vai 
entao ampliar c$ atd que esteja do mesmo tamanho ou 
maior do que a mensagem. 

210 IF LEN c$> = LEN m$ THEN GO 
TO 240 

220 LET c$-c$+c$ 

230 GOTO 210 
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a$ 


'g HrlalmlrTalmU lalinlr laimlr |a|m|r|a|m 

fDESTA VEZ A PALAVRA V 
\ CHAW E ‘RAM’ _) 



Agora codifique a mensagem: 

240 FORa=1 TO LEN m$ 

250 LET q$(a)=CHR$(CODE m$(a)+ 
CODE c$(a)) 

260 NEXT a 

270 PRINT ' "A mensagem diz:—" 

' 'q$ 


OCODIGOPARAMET?. [ 
SOME 114 QCEEOCODIGO DEV, 

E TERA191QUBEO C&DIG0 PARA 


TToTTI 


I f I a I m l Tl dS 
|in| I.r~T~ (T$ 


Por ultimo o computador vai perguntar se voce quer gravar 
sua mensagem em fita: 

280 INPUT "Voce quer gravar emfi 
ta? ";z$ 

290 IF z$="" THEN GO TO 280 
300 IF z$(1) < >"y" TFIEN RETURN 
310 INPUT BRIGHT 1;"Posicione o 
gravador e terminals. Entao pres 
sione ENTER.";z$ 

320 SAVE "mensagem" DATA q$() 

330 INPUT "Pare o gravador e pres 
sione ENTER. ";z$ 

340 RETURN 


108 


A gravagao e feita na linha 320. "mensagem" 6 o nome do 
arquivo e DATA q$() diz ao computador para passar para a 
fita toda a informagao a partir de q$. 


<1$ (HI 



A sub-rotina 'decodificar' comega na linha 350. Ela 6 
praticamente igual a de codificagao mas em sentido inverso. 

350 REM Decodificar 
360 PRINT "Posicione o gravador 
e terminals." 

370 PRINT ' "Coloque o gravador 
em play." 

380 PRINT ' "Pressione ENTER." 

390 INPUT z$ 

400 LOAD "mensagem" DATA q$() 

410 CLS 

420 PRINT "A mensagem codificada diz:—' ' 'q$ 

430 DIM m$(LEN q$) 

440 INPUT "Pare o gravador e digi 
te a palavra chave. ";c$ 

450 IF c$-"" THEN GO TO 440 
460 IF LEN c$ > - LEN q$ THEN GO 
TO 490 

470 LET c$=c$+c$ 

480 GO TO 460 
490 FOR a=1 TO LEN q$ 

500 LET m$(a)»=CHR$ (CODE q$(a)- 
CODE c$(a)> 

510 NEXT a 
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520 PRINT '' "A mensagem diz:—' 
'm$ 

530 INPUT "Pressione ENTER. ";z$ 
540 RETURN 


CERUFI^DE-SE DE QUE 
HAO EOT E1TCAPS LOCK 
QUAWDO RODAR 0 PROGRAMA 
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Campo Minado 

Ha muitos seculos os habitantes de um castelo fortificado 
colocaram minas no patio bem defronte a entrada. Ao 
longo dos anos estas minas v§m gradualmente chegando a 
superffcie. 

Ao realizar uma missao secreta naquela regiao voce foi 
mordido por uma cobra venenosa. O unico antidoto esta 
no castelo, mas para chegar la 6 preciso atravessar o pAtio, 
onde as minas, uma por uma, estao chegando a superficie. 
Pressione 

a para movimentar para cima 
z para movimentar para baixo 
n para a esquerda 
m para a direita 

Sera que voce pode chegar ao castelo antes que seu tempo 
se esgote? 

10 campo minado 
20 LET Escore maximo=0: LETn$-" " 

30 FOR c=144 TO 145 
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40 FOR a=0 TO 7 
50 READ n 

60 POKE USR CHR$ c+a,n 
70 NEXT a 

80 DATA 60,60,24,255,24,60,102 

,66 

90 DATA 8,200,107,63,63,107,20 


CERtelO ESTA PROHTO. ] 
AGORA 0J0G0P0DE | 


110 BORDER 5; PAPER 7: CLS 
'120 INK 6 

130 PRINT AT 0,27;‘‘B M B";AT 1, 
140- PRINT AT 3,27;"B ■ AT 4, 


150 PRINT INK 2;AT 19,0;"d 
INK0;AT20,0;"BB" 

160 PRINT INK 4;AT 21,0;". 


170 FOR w-5 TO 20 

180 PRINT INK 2;AT w,31;" I" 

190 NEXT w 

200 PRINT INK 0;AT 3,29fi»" 

210 LET terhpo-100 
220 LET linha=20: LET coluna-2 
230 LET nova linha-linha: LET no 
va coluna=coluna 
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/PARA 0 A DA LINHA 240 A 
f USE 0 CURSOR G. ) 

: FAgAOMESMOPARA0B^?A 
y. DALnjHA430J W ”-'O'\3 


240 PRINT INK ^AT linha,coluna 

;"A" 

250 LET tempo=tempo—1 
260 IF tempo-9 THEN PRINT AT 0, 
10 ;" " 

270 PRINT INK 0;AT 0,0;"Tempo R 
estante ";tempo 

280 IF tempo-0 THEN GO SUB 420; 
O SUB 630: GOTO 110 
290 IF linha-4 AND coIuna>27 AND 
coluna<31 THEN GO SUB 520: GO 
SUB 610: GOTO 110 
300 LET linha de minas-INT (RND 
*16)+5: LET coluna de minas-INT ( 
RND*29)+2 

310 PRINT INK 1,-AT linha demina 
s,coluna de minas;"*" 

320 IF linha—linha de minas AND 
coluna-coluna de minas THEN GO 
SUB 420: GO SUB 630;GO TO 110 
330 LET i$-INKEY$ 

340 IF i$ —"a" AND linha> 5 OR (co 
luna>27 AND linha=5)THEN LET no 
va iinha—linha—■1 . 

350 IF i$="z" AND !inha<20THEN 
LET nova linha-linha+1 
360 IF i$="n" AND coluna>0 THEN 
LET nova coluna=coluna~1 
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370 IF i$-"m" AND coluna< 30 THE 
N LET nova coluna=coluna+1 
380 PRINT AT linha,coluna;" 

390 LET linha-nova linha: LET co 
luna=nova coluna 
400 IF SCREEN$ (linha,coluna)="* 

" THEN GO SUB 420: GO SUB 630: 

GOTO 110 

410 GO TO 240 



420 REM Morto 
430 PRINT INK 3:AT,linha,coluna 

;"B" 

440 RESTORE 490 
450 FORt«1 TO 10 
460 READ v,p 
470 SOUND v,p 
480 NEXT t 

490 DATA .2,15,.2, 14,.4,14, .2,1 
5,.2,14, .4,14 

500 DATA .2,15,.2,14,.4,14,.4,1 
0 

510 RETURN 

520 REM Sucesso 
530 RESTORE 580 
540 FORt-1 TO 10 
550 READ v,p 
560 SOUND v,p 


570 NEXT t 

580 DATA .2,5,.2,7,.4,9,.4,5,.4 
,5 

590 DATA .2,7,.2,9,.4,10,.4,14, 
.4,14 

600 RETURN 


610 REM Recordlsta 
620 IF tempo > escore maximo THEN 
GO SUB 700 
630 CLS 

640 PRINT INK 2;AT 2,2J"MINEFI 
ELD" 

650 PRINTINK0;AT5,2;"STOPSC 
CORER:", escore maximo 
660 PRINT INK 0;AT 7,2;n$ 

670 PRINT INK 2;AT 10,2;"PRES 
SIONE QUALQUER TEC LA PARA JOGAR 
OUTRA VEZ" 

680 PAUSE 0 
690 RETURN 

700 REM Novo recordista 
710 CLS 

720 LET escore maximo-tempo 
730 PRINT INK 2jAT 2,2,-"Voce e 
o novo recordista." 

740 PRINT INK 0;AT 4,2;"Por favor digite seu norne." 
750 INPUT n$ 

760 RETURN ' 


VOCE PRECISA DE MIM t N I 
PARA EXECUTAR 0 PROGRAMA H 1 
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As agendas que promovem encontros totalmente 
automatizadas existem hd muitos anos e prestam bons 
service encontrando parceiros adequados para seus 
clientes. Nosso programa naturalmente, d muito simples se 
o compararmos com os que estas agendas utilizam mas 
assim mesmo ele podera dar a voce uma iddia de como o 
computador escolhe os pares. 

Os dados sobre os parceiros estao no final do programa 
linhas 680 a 770. Possufmos cinco informagoes a respeito 
deles: 

Nome, 

Sexo — masc/fem, 

Cor do cabelo — escuro/louro/ruivo, 

Estatura — baixa/mddia/alta, 

Temperamento — ativo/sossegado, 

A matriz que contdm esta informaqao 4d$ee estabelecida 
na linha 20. Tem espa?o para dez registros, cada urn com 
cinco campos. A maior palavra que pode ser armazenada 
possui oito letras. 



10REM Parceiros 
20 DIM d$(10,5,8) 

30 DIM gf(8): DIM t$(8); DIM h 
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$( 8 ) 

40 LET m=*0 
50 REM Leia DATA 
60 FOR r-1 TO 10 
70 FOR f-1 TO 5 
80 READ d$(r,f) 

90 NEXT f 
100 NEXT r 

110 REM Introducoes 
120 BORDER 6: PAPER 7: INK 1:C 
LS 

130 PRINT AT 2 , 2 ;"Bem-vindo aos 
encontros programados!” 

140 PRINT AT 5,2;"Por favor apre 
sente-se" 

150 PRINT AT 7 , 2 ;"digitando seu 
nome." 

160 INPUT n$ 

170 CLS 

180 PRINT AT 2,2;"Obrigado ";n$ 

190 PRINT AT 5,2;"Voce e homem 
ou mulher?" 

200 INPUT s$ 

210 CLS 

220 IF s$ < > "homem" AND s$ < > "mu 
Iher": THEN GO TO 190 
230 IF s$="homem" THEN LET g$=" 
mulher": LET p$-="Ela" 

240 IF s$-"mulher" THEN LET g$ 
-"homem": LET p$="Ele" 

250 PRINT AT 2,2;"Agora preciso 
saber algumacoisa" 

260 PRINT AT 4,2; "sobre voce." 

270 PRINT AT 7,2;"Voce e" 
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280 PRINT INK 2;AT 9,2;"sossega 
do"; INK©;" ou INK2;"ati 
vo"; INK 0;"?" 

290 INPUT v$ 

300 CLS 

310 IF v$ < > "sossegado" AND v$ < > "ativo" THEN 
GO TO 270 
320 LET t$=v$ 

330 PRINT AT 2,2;"Voce e" 

340 PRINT INK 2;AT5,2;"alto" 

350 PRINT INK 2;AT 7,2;"medio" 

360 PRINT INK 0;AT 9,2;"ou" 

370 PRINT INK 2;AT 11,2;"baixa 

380 INPUT j$ 

390 CLS 

400 IF j$ < > "alto" AND jf < > "medi 
a" AND j$ < > "baixa" THEN GOTO 
330 

410 LET h$=j$ 

420 BORDER 2 

430 PRINT AT 2,2;"Obrigado, "; 

n$ 

440 PRINT AT 4,2;"Agora vou pro 
curar em meus" 

450 PRINT AT 6,2;"registros a pes 
soa adequada." 

460 INPUT "Por favor pressione 
ENTER";z$ 

470 CLS 

480 REM Verificar dados 

490 FOR p-1 TO 10 

500 IF d$(p,2)-g$ AND d$(p,5)=t 

$ AND d$(p,4)-h$ THEN GO SUB 58 
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0 

510 NEXT p 

520 IF m=1 THEN BORDER 4: PRIN 
TAT 2,2;"Que tal um encontro?": 

STOP 

530 BORDER 0 

540 REM Nenhum parceiro 
550 PRINT AT 5 , 2 ;"Desculpe, "n$ 

560 PRINT AT 7,2;"Nao achei ne 
nhum parceiro para voce." 

570 STOP 

580 REM Um parceiro 
590 LET m=1 
600 BORDER 3 

610 PRINT AT 2,2;d$(p,1);" e uma 
possibilidade." 

620 PRINT AT 5,2;p$;"e";d$(p 
,4);"em estatura." 

630 PRINT AT 7 , 2 ;p$;"e";d$(p 
,5) 

640 PRINT AT 9,2;"e tem ";df ( 
p,3);" cabelos." 

650 INPUT "Por favor pressione ENTER. 
";z$ 

660 CLS : RETURN 
670 REM Dados 

680 DATA "Simon", "homem","moreno 
","baixo","ativo" 

690 DATA "Garry", "homem","louro 
","media","ativo" 

700 DATA "Amanda","mulher","mo 
rena","media","sossegada" 


710 DATA "Victoria","mulher","mo 
rena","alta","ativa" 

720 DATA "Andrew","homem","more 
no","alto","ativo" 

.730 DATA "Richard","homem","mo 
reno","medio""ativo" 

740 DATA "Paul","homem","ruivo" 
,"alto","sossegado" 

750 "Jane","mulher","more 
na","baixa","ativa" 

760 DATA "Lisa","mulher","loura 
","media","ativa" 

770 DATA "Diana","mulher","mo 
rena","sossegada" 



TAEVEZ VOCE QUEIRAI 
SETS AMIGOS - linha 680 A 770. 

ALBUM DELES TITOB UM NOME 
COM MAIS DE OITO LETRAS TROQTE 
OS 8 NAS LINHAS 20 E 30 PARA UM 
NUMERO MAIOR 
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Ao comegar, seu carro esta andando para a direita. Para 
mudar de dire?ao pressione 
n para a esquerda 
m para a direita 
a para cima 
z para baixo 



o B na linha 50 precisa do cursor G, o mesmo acontece 
com o A na linha 230, com o B da linha 240 e com o C da 
linha 960. 


10 REM Circuito 

20 GO SUB 1000: REM Caractere Gr 
afico 

30 GO SUB 800: REM Pista 
40 REM Variaveis 
50 LETc$-"B" 

60 LET linha—19: LET colun -=15 
70 LET movelinha-0:LET moveco 
luna=1 

80 LET d$="m" 

90 LET escore=0 

100 REM Corrida 
110 PRINT INK 2;AT linha,colu 
na;c$ 

120 SOUND .01,-12 
130 LET escore=escore+1 
140 PRINT INK 0;AT 10,12;"ESCO 
RE ";escore 
150 LET i$ = IN KEYS 
160 IF it < > " "THEN LET d$ = i$ 

170 IF d$-"n" THEN LET movecol 
una=—1; LET movelinha=0 
180 IF d$-"m" THEN LET movecol 
una=—1: LET movelinha«=0 
190 IF d$-"a" THEN LET moveli 
nha=—1: LET movecoluna-0 
200 IF d$="z" THEN LET moveli 
nha-1: LET movecoluna=0 
210 PRINT AT linha,coluna;" " 

220 LET linha=linha+movelinha: 

LET coluna=coluna+movecoluna 
230 IF coluna < =3 OR coluna >-28 
THEN LET c$="A" 

240 IF linha <= 3 OR linha >= 18 
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THEN LET c$="B" 

250 

IF ATTR (linha,coluna)=32 OR 

ATTR (linha,coluna)-57 THEN GO 

TO 700: REM colisao 

260 

GOTO 110 


/attr serve para verificar se ^ 

VOCE DERRUBOU UMA LAIAOU J 


[sATODAPISTA 

700 

REM Golisao 

710 

PRINT INK 2; FLASH 1;ATIi 

nha,co!una;c$ 

720 

FOR p-12 TO -12 STEP -1 

730 

SOUND. 01, p 

740 

NEXT p 

750 

INPUT "Pressione ENTER para 

uma nova corrida. ";z$ 

760 

RUN 

800 

REM Tela 

810 

BORDER 5: PAPER 4: CLS 

820 

PAPER 7: INK 0 

830 

FOR r=1 TO 3 

840 

PRINT AT r,1;" 

850 

NEXT r 

860 

FOR r=4 TO 17 

870 

PRINT AT r,1;" ";AT r,28; 
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880 

NEXT r 

890 

FOR r-18 TO 20 

900 

PRINT AT r,1;" 

910 

NEXT r 


CjftnS?) NAS UNHAS 84a E 90UEXISTEM ^ 


airesPAgos emkeasaspas.ua 1 


LINHA 8711 existem tres j 

920 

REM Perigos 

930 

FOR h-1 TO 20 

940 

LET hr-INT (RND*19)+1 

950 

LET hc=INT (RND*29)+1 

960 

PRINT INK 1;AT hr,hc;"C" 

970 

NEXTh 

980 

RETURN 

1000 

REM Caracteres Graficos 

1010 

RESTORE 1090 

1020 

FOR c=144 TO 146 

1030 

FOR a-0TO 7 

1040 

READ n 

1050 

POKE USR CHR$ c+a,n 

1060 

NEXT a 

1070 

NEXT c 

1080 

RETURN 

1090 

REM Carro para cima/para 

baixo 


1100 

DATA 186,254,186,56,56,186, 

254,186 
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1110 REMCarroparaaesquerda/ 
para direita 

1120 DATA 0,231,66,255,255,255,6 
6,231 

1130 REM lata de oleo 
1140 DATA 0,56,40,60,60,60,60,0 
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Aventura na Selva 

Este programa e um exemplo de uma aventura do tipo 
texto. Isto significa que ao jogar, voce toma parte numa 
estdria escrita na tela. Voce vai encontrar quatro perigos 
enquanto estiver atravessando a selva a caminho de seu 
acampamento. Se voce vai escapar ou nao, depende em 
parte de estar levando o equipamento adequado, e em 
parte de ter sorte. 



10 REM Aventura na Selva 
20 BORDER 5; PAPER 7: INK 0: C 
LS 

30 GO SUB 890: REM Descricao 
40 GO SUB 320: REM variaveis 
50 INPUT BRIGHT 1;"Pressione ENTE 
R para continuar. ";z$ 

60 CLS 

70 FOR x=1 TO 4 
80 IF y<2 THEN GO SUB 410: RE 
M Ofereca equipamento 
90 REM Escolha perigo 
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100 LET h-INT (RND*4)+1 
HO IF g(h)=1 THEN GO TO 100 
120 LET g(h)=1 
130 BORDER h: INK h: CLS 
140 PRINT "A sua frente esta" 
h$(h) 

150 PRINT 
160 LET v$="n" 

170 IF d(h)=1 THEN CO SUB 590: 

REM Usarequipamento? 

180 IF d(h) = 0 OR v$="n" THEN G 
O SUB 710: REMArrisque 
190 IF v$="y" OR v$="y" THEN L 
ET d(h) = 0: LET y-y-1 
200 CLS 
210 NEXT x 

220 REM Parabens 

230 BORDER 5: INK 2: CLS 

240 PRINT "PARABENS!” 

250 PRINT "Voce chegou a'o seu 
campo" "a salvo.' 1 
260 IF v=0 THEN STOP 
270 PRINT "Voce ainda tern” 

280 FOR m-1 TO 4 
290 IF d(m}=1 THEN PRINT i$(m) 
300 NEXT m 
310 STOP 



320 REM Variaveis 
330 DIM h$(4,32): DIM i$(4,32) 
340 DIM a|(4,64): DIM w$(4,64) 
350 DIM f$(4,32): DIM u$(4,32) 
360 DIM g(4): DIM d(4): LET y-0 
370 FOR z=1 TO 4 
380 READ h$(z),i$(z),a$(z),w$(z 
),f|(z),u$(z) 

390 NEXT z 
400 RETURN 



410 REM Oferecer equipamento 
420 LET i — INT (RND*4)+1 
430 IF d(i)=1 THEN RETURN 
440 PRINT "A sua frente esta 
'if(i)" BRIGHT 1;"Vocequer 
pegar?" 

450 DIM zf (1): INPUT z$ 

460 PRINT 

470 IF z$="y" OR z$="Y" THEN G 
O SUB 520 

480 IFz$< >"y"ANDz$< >"y"THEN 
PRINT "Voce esta partindo"i$(i) 

490 INPUT BRIGHT 1; Pressione E 
NTER ";z$ 




500 CLS 
510 RETURN 


520 REM Pegue o equipamento 
530 LET y=y—1: LET d(i)=1 
540 PRINT "Voce agora esta leva 
ndo" 

550 FOR m-1 TO 4 

560 IF d(m)-1 THEN PRINT i$(m) 

570 NEXT m 

580 RETURN 

590 REM Usar equipamento? 

600 "Felizmente voce tern" 4$ 

(h)'' BRIGHT 1;"Voce quer usa-lo" 
610 DIM v$(1): INPUT v$ 

620 IF v$-"y" OR v$="y" THEN G 
O SUB 0640 
630 RETURN 

640 REM Usar equipamento 
650 PRINT 

660 LET r-INT (RND*6) 

670 IF r< >0THEN PRINTf$(h) 
680 IF r=0 THEN GO TO 820 
690 INPUT "Pressione ENTER ";z$ 
700 RETURN 
710 REMArrisque 
720 PRINT "Infelizmente, voce n 
ao tern" 'i$(h) 

730 PRINT 
740 PRINT w$(h) 

750 INPUT BRIGHT 1;"Pressione E 
NTER ";z$ 

760 PRINT 

770 LET r-INT (RND*2) 
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780 IF r=0 THEN PRINT ff(h) 

790 IF r< >0 THEN GO TO 820 
800 INPUT BRIGHT 1;"Pressione E 
NTER ";z$ 

810 RETURN 

820 REM FINAL 
830 CLS 

840 BORDER 0: INK 0 
850 PRINT "Queazar!" 

860 PRINT AT 2,0;u$(h) 

870 PRINT AT 4,0; "Voce viajou " 
;(x—1)/4*100;"%" ' "do caminho a 
traves da selva" 

880 STOP 


890 REM Descricao 
900 PRINT "Aventura na Selva" 
910 PRINT 'TAB 5; Voce tern que 
atravessar uma grande" ' "flores 
ta para chegar ao seu acampamen 
to" 

920 PRINT "Voce tera a oportun 



idade" ' "de pegar certos itens n 
o" 

940 PRINT "caminho, mas lembre- 
se" ' "so dois objetos de cada" ' " ve 
z." 

950 PRINT ' TAB 5;"Quando for f 
eita uma" ' "pergunta,responda si 
m ou nao." ' "Para uma acao mais 
rapida a" ' "qualquer momento,pr 
essione qualquer tecla." 

960 RETURN 

970 REM DATA 
980 DATA "ravina profunda.","c 
orda.'V'Voce joga a corda e co 
meca a atravessar a ravina.","Vo 
ce tenta pular.”,"Voce chega sa 
o e salvo ao outro lado.","Voc 
e escorrega, e cai no abismo." 

990 DATA "urn rio com crocodilos." 

"Uma balsa de borracha.","Voce ench 
e a balsa e parte.","Voce comega a nadar. 

""Voce chega a outra margem.","Voc 
e acaba na barriga do crocodilo." 

1000 DATA "uma terrivel cobra ve 
nenosa.","um punhal.","Voce ataca a cobra com a 
faca.","Voce tenta estrangula-la.","Presas enveneriada 
s liquidam voce.","A cobra esta 
morta a seus pes."' 

1010 DATA "urn nativo enorme e fe 
roz.","uma sacola com moedas de o 
uro.","Voce oferece a sacola.","Vo 
ce tenta fugir dele.","Ele deixa 
voce passar.","Voce serve de almo 
co." 
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Voce pode alterar algumas partes deste programa para 
tornar a aventura mais emocionante — uma aventura 
submarina, quern sabe? Altere a descrigao nas linhas 910 e 
920 e os dados nas linhas 980 a 1010. Cada linha de dados 
contem as palavras que podem ser necessarias para os 
perigos. Cada uma delas contem seis itens, 

1. As coisas terriveis que voc6 val enfrentar. 

2. O equipamento que pode auxiliar. 

3. O que voce faz se tiver o equipamento. 

4. O que voc§ faz se nao tiver o equipamento. 

5. O que acontece se voce for bem-sucedido. 

6. O que acontece se voce fracassar. 






Cursores e Tedas—Um Lembrete 


As palavras que voce ve em branco, sobreas teclas, sao 
denominadas 'palavras-chave' (keywords). Quando vocS 
liga o seu TK95 e pressiona ENTER vai ver um K intermitente 
no canto esquerdo de sua tela. Com este K na tela, ao 
pressionar qualquer das teclas das tres ultimas carreiras do 
teclado voce fara surgir na tela uma palavra-chave. 


Com o cursor L na tela, ao pressionar uma tecla com uma 
letra voce teri a letra mindscula. Para uma letra maiuscula, 
mantenha CAPS SHIFT pressionado enquanto digita a letra. 
Se voce quiser escrever todo seu texto em letras maiusculas, 
passe para a modalidade CAPS LOCK: mantenha CAPS 
SHIFT pressionada enquanto aperta CAPS LOCK. 
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O, cursor mudara para C. Para voltar ao cursor L, e letras 
minusculas, pressione CAPS SHIFT e outra vez CAPS LOCK. 

Sfmbolos em vermelho e palavras na parte superior das 
teclas. 

Para estes, voce deve manter pressionado SYMBOL SHIFT 
em vermelho.enquanto aperta a tecla. 



□ Q 


As palavras em verde na parte superior das teclas. 

Para estas palavras use o cursor E. Pressione CAPS SHIFT e 
SYMBOL SHIFT juntos. Solte as duas e pressione a tecla 
abaixo da palavra que voce deseja. 

As palavras em vermelho abaixo das teclas 
Mude para o cursor E. Mantenha SYMBOL SHIFT 
pressionado e aperte a tecla imediatamente acima da 
palavra que voce quer. 

Os caracteres graficos para blocos. 

Estes sao as formas quadradas nas teclas de 1 a 8. Para eles 
voc§ vai precisar do cursor G. Mantenha CAPS SHIFT 
pressionada e aperte a tecla 9 — aquela onde GRAPHICS 
esta escrito em cima. Solte CAPS SHIFT e entao aperte a 
tecla 1. Voce vera na tela um pequeno quadrado preto — a 
parte cinza no caractere grafico na tecla 1. Mantenha CAPS 
SHIFT pressionado e aperte a tecla 1 outra vez. Desta vez 
vai ver um bloco em forma de L a parte do caractere 
grafico que esta em branco na tecla. 
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Para voltar ao cursor normal, aperte 9 outra vez. 

Alterando uma linha de programa 


Mantenha CAPS SHIFT pressionada e aperte a tecla 6. O 
cursor do programa deseed. Para que ele suba, use CAPS 
SHIFT com a tecla 7. 

Com o cursor do programa na linha certa mantenha CAPS 
SHIFT pressionada e aperte EDIT (tecla 1). A linha descera 
para a parte inferior da tela. Use a seta da esquerda ou da 
direita (teclas 5 e 8), com CAPS SHIFT, para levar o cursor K 
ou o L para a parte da linha que voce quer alterar. Digite 
entao algumas letras adicionais, ou use CAPS SHIFT e 

DELETE (tecla 0) para eliminar. 

Quando voce digita uma linha de programa ve urn slmbolo 
como este > entre o numero da linha e a primeira palavra 
da linha, Isto se chama “cursor do programa", Antes de 
poder realizar a alterapao de uma linha voce precisa 
movimentar este cursor para a linha em questao. 

Existem duas formas de fazer isto. Uma e digitar LIST e 
entao o ndmero da linha que vocfi quer alterar. 


Inverse e true video 

Se voce pressionar CAPS SHIFT e INV. VIDEO, isto diz ao 

TK95 que inverta as cores de INK e de PAPER, Em vez de 
letras pretas em fundo branco, voce tera letras brancas em 
fundo preto. CAPS SHIFT e TRUE VIDEO farao com que 
tudo volte ao normal. 

( LIST 50 ) f DE PAETIDA PARaA 
^ A LINHA 50 J 


O cursor Eea carreira de cima 

Pressionando uma tecla da carreira de cima quando o 
cursor E esta na tela voce podera fazer coisas estranhas com 
sua listagem — alterar sua cor ou torna-la intermitente por 
exemplo. 



Isto acontece muitas vezes por engano. Se acontecer digite 
DELETE algumas vezes e tudo voltara ao normal. Voce 
encontrara uma tabela no seu manual, que dara maiores 
detalhes a esse respeito. 

A outra e usar as setas. 
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27 

Sugestoes 

Em alguns dos capitulos anteriores existe uma segao 
denominada Para voce fazer. Nela existem perguntas e 
ideias a respeito de programas. Existem muitas maneiras de 
solucionar estes quebra-cabegas, mas em todo caso aqui 
estao algumas sugestoes. 

Capitulo 1 

Variaveis numericas 

escore mantOm urn registro dos pontos marcados. 
yc eo numero da coluna em que voce esta. 

pc acolunadapistadeaterrissagem. 

a urn nbmero entre 1 e 4 escolhido aleatoriamente 

pelo computador. Ele vai entao usar este numero 
para decidir se a pista de aterrissagem vai se 
mover para a esquerda ou para a direita, ou ainda 
permanecer no mesmo lugar. 

Variaveis de string 
c$ sua nave. 

d$ 6 caractere na tecla que voce pressiona para 
movimentar sua nave. 


Capitulo 3 

Aqui estao duas sugestoes para o "cartao de aniversario" 
uma versao simplificada. 
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40 LET i — I NT (RND*7) 

50 INK i 

60 PRINT'AT 0,c;"*";AT 21,c;"* 

70 NEXT c 
80 FOR r=1 TO 20 
90 LETMNT(RNDV) 

100 INK i 

110 PRINT AT r,0;"*";AT r,31;"* 

120 NEXT r 

130 REM imprimir cartao e tocar 
■melodia 

140 FOR a-1 TO 4 

150 READ a$,n 

160 INK a: PRINT AT 7+a,2;a$ 

170 FOR b-1 TO n 
180 READ d,p 
190 SOUND d,p 
200 NEXT b 
210 PRINT 
220 NEXT a 
230 REM os dados 
240 DATA "Happy birthday to you 
",6 

250 DATA .5,0,.5,0,1,2,1,0,1,5, 

2.4 

260 DATA "Happy birthday to you 

", 6 

270 DATA .5,0,.5,0,1,2,1,0,1,7, 

2.5 

280 DATA "Happy birthday dear T 
homas",7 

290 DATA .5,0,.5,0,1,12,1,9,1,5 
,1,4,1,2 


300 DATA "Happy Birthday to you 

",6 

310 DATA .5,10,.5,10,1,9,1,5,1, 

7,2,5 

Capitulo 4 

10 REM idades 
20 DIM a(5) 

30 FOR p=1 TO 5 
40 READ a(p) 

50 NEXT p 
60 DATA 42,39,18,15,11 
70 PRINT "Por favor digite sua i 
dade." 

80 INPUT eu 

90 LET n = 0 

100 FOR g-1 TO 5 

110 IF a(g) > eu THEN LET n —n-t-1 

120 NEXT g 

130 PRINT 

140 PRINT "O numero de pessoas" 
150 PRINT "mais velhas do que v 
oce e ":n 

Capitulo 5 

10 REM conta letras 
20 DIM w$(20) 

30 INPUT "Quero uma palavra.":w$ 

40 LET n = 0 

50 FOR c=1 TO 11 

60 IF w$(C)="s" THEN LET n-n+ 
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70 NEXT c 
80 PRINT "EM ";w$ 

90 PRINT "A letra s aparece" 
100 PRINT n:" vezes" 


Capitulo 6 

10 REManimais 
20 DIM $(5,10) 

30 PRINT "Por favor digite o no 
me de " ' "cinco animais." ' "Nao ma 
is de dez letras em cada." 

40 PRINT 
50 FOR a-1 TO 5 
60 INPUT a$(a) 

70 PRINT a$(a) 

80 NEXT a 
90 PRINT 

100 LET b=INT (RND*5)+1 
110 PRINT "O melhor e o":a$(b) 



Capitulo 7 


10 DIM A$(10,3,20) 

30 READ A$(R,1),A$(R,2),A$(R,3) 
150 PRINT AT 10,0;"Quais os end 
recos que voce quer?" 

160 DIM N$(20) 
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200 IF A$(R,1) = N$ THEN PRINT A 
T 6,0;A$(R,1);AT 8,0;A$(R,2);AT 
10,0;A$(R,3) 

Altere as linhas de dados (50 a 140) de modo que 
contenham o nome, enderego e telefone assim: 

50 DATA "ANNE SMITH","3 NEW ROAD","709723" 


Capitulo 8 

300 REM Direita 

310 LET escore=escore+1 

320 BORDER 2 

330 PRINT AT 10,2,-"Direita" 

340 RESTORE 390 
350 FOR m=1 TO 13 
360 READ d,p 
370 SOUND d,p 
380 NEXT m 

390 DATA .2,9,,2,9,.4,9,.2,6,.2 
,6,,4,6 

400 DATA .2,11,,1,11,.2,11,.2,9 
,.2,7,.2,6,.4,4 
410 RETURN 
500 REM Errado 
510 BORDER 0 

520 PRINT AT 10,2;"Nao,e";a$(a, 

, 2 ) 

530 RESTORE 580 
540 FOR m=1 TO 14 
550 READ d,p 
560 SOUND d,p 
570 NEXT m 






580 DATA 1,4,.5,5,.5,7,.5,7,.5, 

5.. 5.4..5.2 

590 DATA .5,0,.5,0,.5,2,.5,4, .7, 

5.4.. 25.2.1.2 
600 RETURN 


Capitulo 9 


10 REM Estrela de David 
20 PLOT 90,60 
30 DRAW 80,0 
40 DRAW -40,70 
50 DRAW -40,-70 
60 PLOT 90,105 
70 DRAW 80,0 
80 DRAW -40,-70 
90 DRAW -40,70 

10 REM Rosto 
20 PLOT 90,10 
30 DRAW 0,10 
40 DRAW -30,0 
50 DRAW 0,100 
60 DRAW 100,0 
70 DRAW 0,-100 
80 DRAW -30,0 
90 DRAW 0,-10 
100 PLOT 80,50 
110 DRAW 0,-10 
120 DRAW 60,0 
130 DRAW 0,10 
140 PLOT 80,100 
150 DRAW 20,0 
160 DRAW 0,-20 




170 

DRAW -20,0 


180 

DRAW 0,20 


190 

FOR y=80 TO 90 


200 

PLOT 90,y 


210 

DRAW 10,0 


220 

NEXTy 


230 

PLOT 120,100 


240 

DRAW 20,0 


250 

DRAW 0,-20 


260 

DRAW -20,0 


270 

DRAW 0,20 


280 

FOR y=80 TO 90 


290 

PLOT 130,y 


300 

DRAW 10,0 


310 

NEXTy 


10 

REM Passos 


20 

FOR a-10 TO 150 STEP 20 


30 

PLOT a,a 


40 

DRAW 20,0 


50 

DRAW 0,20 


60 

DRAW -20,0 


70 

DRAW 0,-20 


80 

NEXT a 


Capitulo 10 


10 

REM Rosto Redondo 


20 

CIRCLE 120,80,50 

c 

0 , 
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30 PLOT 90,90 
40 CIRCLE 90,90,10 
50 PLOT 150,90 
60 CIRCLE 150,90,10 
70 PLOT 110,70 
80 PLOT 130,70 
90 PLOT 100,50 
100 DRAW 40,0 
110 CIRCLE 65,80,5 
120 CIRCLE 175,80,5 
200 REM Circulos 
210 FOR a-1 TO 20 
220 LET c-INT (RND*7) 

230 LET x-INT (RND*150)+50 
240 LET y-INT (RND*75)+50 
250 LET r=INT (RN D*40)+10 
260 BORDER c: IN K c: Cl RCLE x,y 
,r 

270 SOUND .1,r 
275 NEXT a 

280 INPUT "Pressione ENTER",b$. 
290 RETURN 


Capitulo 11 


A linha adicional 4 

150 IF POINT (x,y)-1 THEN GOTO 
170 
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Capitulo 13 
A mensagem diz: 


RUN OVER THE BORDER AND THEN 
GO TO THE NEXT CHECK POINT 



Capitulo 14 

70 DATA 16,56,124,16,56,124,16 
,16 

80 DATA 60,60,24,255,24,60,102 
,195 

90 DATA 124,84,254,124,40,40,1 
08,0 

100 DATA 0,0,248,228,231,255,10 

2,102 


Capitulo 15 


10 REMCarneiro 
20 FOR a=0 TO 7 
30 READ n 
40 POKE USR "a"+a,n 
50 NEXT a 
60 DATA 0,6,127,255,254,254,68 
,68 

70 REM Cerca 
80 PAPER 4: INK 0: CLS 






90 FOR f=0 TO 21 
100 LET r=INT (RND*3) 

110 IF r=0 THEN PRINT AT f,20; 

120 IF r< >0 THEN PRINT AT f,20 
# " 

130 NEXT f 
140 REM Andar 
150 INK 7 
160 FOR c=0 TO 30 
170 PRINT AT 10,c;"A" 

180 PAUSE 10 

190 IF SCREEN (10,c+1)=" # " THE 
N STOP 

200 PRINT AT 10,c;" 

210 NEXT c 

Capitulo 16 

A linha adicional e 

5 BRIGHT 1 
Mude a linha 60 para 

60 PRINT FLASH 1; INK 0; OVER 
1;AT 10;c;"+" 

Capitulo 17 

As duas linhas que devem ser alteradas sao 

120 BORDER 4: PAPER 7: CLS 
220 IF ATTR (e,c+1)-60 THEN SO 
UND 2,-10: STOP 
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Esta e a linha que escolhe onde o elefante come^a: 
190 LET e-INT (RND*22) 

Estas sao as linhas que permitem que voce controle o 
elefante: 

235 LET d$=INKEY$ 

242 IF df ="6" AND e < 21 THEN LET 
e-e+1 

244 IF d$="7" AND e > 0 THEN LET 
e=e—1 



Capitulo 19 

10 INPUT "Por favor digite seu 
nome.";n$ 

20 PRINT "Muito prazer"; 

30 IFLEN n$ > 7 THEN PRINT 
40 PRINT n$ 

Capitulo 20 

Aqui estao as altera?oes que expulsarao os bugs: 
Acrescentando programs 
15 LET total-0 
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